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Only Microware's OS-9 

Operating System Covers 

the Entire 68000 Spectrum 






MICROWARE'S OS 9 




UNIX 



R0M-8ASED 
CONTROL 
SYSTEMS 



FLOPPY DISK BASED 

PERSONAL 

COMPUTERS 



OiSKBASEO 

INDOSTHWL 

SYSTEMS 




SMALL SCALE 
ARJNG 
SYSTEMS 



LARGE-SCALE 

TIMESHARING 
SYSTEMS 



HANDHELD 
COMPUTERS 



HARDWARE, SOFTWARE 
DEVELOPMENT SYSTEMS 



SINGLE USER 
MULTITASKING SYSTEMS 



MCOIUM SCALE 
TIMESHARING SYSTEMS 



SMALL SYSTEMS 



LARGE SYSTEMS 



Is complicated software and expensive hardware 
keeping you back from Unix? Look into OS-9, the 
operating system fiom Miciowaie that gives 68000 systems 
a Unix-style environment with much less overhead and 
complexity. 

05-9 (s versatile, inexpensive, and delivers outstanding 
performance on any si2e system. The OS-9 executive is 
much smaller and far moie ef- 
ficient than Unix because its 
written in fast, compact as- 
sembly language, making it 
ideal for critical real- time ap- 
plications. OS-9 can run on 
a broad range of 8 to 32 bit 
s stems based on the 68000 
or 6809 family MPUs from 
ROM-based industrial con- 
trollers up to large multiuser 
s stems. 



OS-9 S OUISTANDING 

C COMPILER IS 
YOUR BRIDGE TO UNIX 
Miouware s C compiler tech- 
nolog is another OS-9 advantage. The compiler produces 
extremely fast, compact, and ROMable code. You can easily 
develop and port s tern or application software back and 
forth to standard Unix s stems. Cro*<ompiler versions for 



Key OS-9 Features At A Glance 
Compact (16K) ROMable executive written in assembly 
language 

User "shell" and complete utility set written in C 
C source code level compatibility with Unix 
Full Multitasking/multiuser capabilities 
Modular design - eitremely easy to adapt, modify, or 
expand 

Unix-type tree structuied file system 
Rugged "crash-proof file structure witb record locking 
Works well with floppy disk or ROM-based systems 
Uses hardware or softwaie memory management 
High performance C. Pascal. Basic and Cobol compilers 



VAX and PDP-11 make coordinated Unix/OS 9 softwaie 
development a plea ure. 

SUPPORT FOR MODULAR SOFTWARE 
- AN OS-9 EXCLUSIVE 

Comprehensive support for modular softwaie puts OS-9 
a generation ahead of other operating s stems. Et multiplies 
programmer productivity jmlmcmoi efficiency. Applica- 
tion software can be built 
from individually testable 
software modules including 
standard "librar " modules. 
The modular structure lets 
you customize and recon- 
figure OS-9 for specific hard- 
ware easily and quickly. 



A SYSTEM WITH 

A PROVEN 
TRACK RECORD 



Once art underground 
classic. OS-9 is now a solid 
hit. Since 1980 OS9 has 
been ported to over a hun- 
dred 6809 and 68000 
systems under license to some of the biggest names in the 
business, OS-9 has been imbedded in numerous consumer. 
Industrial, and OHM products, and is supported b many 
independent softwaie suppliers. 
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ALL SYSTEMS INCLUDE: 

* The CLASSY CHASSIS wllh a terro- resonant, constant voltage power 
supply that provides + 8 volts at 30 Amps. ♦ 16 volts at5 Amps, and 

-16 volts at 5 Amps. 

* Gold plated bus connectors. 

* Double density DMA floppy disk controller. 

* Complete hardware and software documentation 

* Necessary cables, ruler plates 

YOU CAN EXPAND YOUR SYSTEM WITH: 

MASS STORAGE 

Dual 8" OSDO Floppies. Cabinet & Power Supply $1698.88 

20MB Streamer + (under development) 

1 .6MB Dual Speed Floppy (under development) 

MEMORY 

#67StatiC RAM-64K NMOS (6809 Only) (349.67 

#64 Static RAM-64K CMOS w/ battery (6809 Only) . . . . $398.64 

#72 256KCM0SSlabcRAMw/batteiy $998 72 

#31 1 6 Socket PROM/ROM/RAM Board (6809 only) ... 1268.31 

INTELLIGENT I/O PROCESSOR BOARDS 

signlllcantly reduce systems overnead by handling routine 1/0 func- 
tions; treeing the host CPU lor running user programs. This improves 
overall system performance and allows user teiminals to be run at up 
to 19 2K baud. For use wltt) GMX III and 020 systems 

#1 l3Port Sertal-30 Wn(OS9) S498.11 

#14 3 Port Seilal-30 Mn (UniFLEX) S498.14 

#12 Parallel-50 Pin (UniFLEX-020) $538.12 

#13 4 Port Seilal-50 Pin (0S9 & UniFLEX-020) $618.13 

I/O BOARDS (6809 SYSTEMS ONLY) 

#41 Serial, 1 Port $88.41 

#43 Serial. 2 Port $128.43 

#46 Serial. 8 Port (0S9/FLEX only) $318.46 

#42 Parallel. 2 Fori $88.42 

#44 Parallel. 2 Port (Centronics pinout) $128,44 

#45 Parallel. 8 Port<OS9/FLEX only) $198.45 

CABLES FOR I/O BOAROS-SPECIFY BOARD 

#95 CaWe sets (1 reded per port) $24.95 

#51 Cenl B.P. Catfe for #12 & #44 $34.51 

#53 Cent. Cable Set $36.53 

OTHER BOARDS 

•66 Prototyping Board-50 Pin $58. 66 

#33 Prototyping Board -30 Pin $38.33 

Windrush EPflOM Programmer $30 (0S9/FLEC 6809 only) ... 1545.00 
CONTACT QlWX FOR FURTHER DETAILS ON THESE AND 
OTHER BOARDS AND OPTIONS. 

EXPORT MODELS: ADO $30 FOR 50Hz. POWER SUPPLIES. 
ALL PRICES ARE F.O.B. CHICAGO. 

GIMIX DOES NOT GUARANTEE PERFORMANCE OF ANY GlMtX 
SYSTEMS. BOARDS OR SOFTWARE WHEN USED WITH OTHER 
MANUFACTURERS PRODUCT. 

GIMIX. Inc. reserves the right to change pricing, terms, and products 
specifications at any time wlthou I further notice. 





GIMIX 2MHZ 6809 SYSTEMS 


GMX 68020 SYSTEMS 


? wo 


#49 

0S9GMX 1/ 

and FLEX 


#39 

0S9GMX 11/ 
and FLEX 


#79 

0S9GMXIII/ 

and FLEX 


#39 
UniFLEX 


#89 
UniFLEX III 


#020 
0S9/68020 


#020 
UniFLEX VM 


CPU Included 


#05 


#05 


GMX III 


#05 


GMX III 


GMX 020 


GMX 020 * MMU 


Serial Pons 
Included 


2 


2 


3 Intelligent 


2 


3 Intelligent 


3 intelligent 


3 InleBlgenl 


Highspeed 
Static RAM 


64KB 


256KB 


256KB 


256KB 


256KB 


512KB 


1 Megabyte 


PRICES OF 
SYSTEMS WITH: 

Dual 80 Track 
DSDD Drives 


$299849 


$3398.39 


$489879 


N/A 


N/A 


N/A 


N/A 


19MB Hard Disk 
and one 60 track 
Floppy Disk 


$559849 


$5998 39 


$779879 


$5998.39 


$809889 


$11,680.20 


$13,680.20 


72 MB Hard Disk 
and one 80 track 


$7598.49 


$7998.39 


$9798,79 


$7998.39 


$10,098.89 


$13,680.20 


$15,680.20 


a 72MB h. a 6MB 
removable pack 
hard disk and one 
80 track (loppy 


$909849 


$9498.30 


N/A 


$9498.39 


N/A 


N/A 


N/A 


a 72MB ♦ a 12MB 
removable pack 
hard disk and one 
60 track floppy 


N/A 


N/A 


$11.29879 


N/A 


$11,598.89 


$15,160.20 


$17,160.20 


GMX 6809 0S9/ 
FLEX SYSTEMS 
SOFTWARE 

0S9 ♦ Editor. 

Assembler. Debugger 


GMXI 
Included 


GMX II 
Included 


GMX III 
Included 


TO ORDER BV MAIL SEND CHECK Oil MONEY ORDER OR USE YOUR VISA OR MASTER 
CHARGE Please allow 3 weeks for perioral checks to clear US otters add $5 handl- 
ing it order ts under J2QG 00 foreign order* add JiO handling it order is under 
£200 00 Foreign orders mer 1200 00 w» bf shipped via fcnery Air Freight COLLECT, 
and we writ charge no handing AM orator* mual 00 prepaid \n U.S. MOY Haasa note 


FLEX 


Included 


Included 


Included 


that tvvgn checks hivt been taking afioui ft weeks tor coMocttan so wt would advise 
wiring money, or cherts drew* on a bank accouffl in the U.S. Our bank to the Continen- 
tal rihnots National Bank of Chicago 231 S LaSatle Street, CWcago, IL 60693, account 


GMXBUG Monitor 


Included 


Included 


Included 


Basic 09, RunB(0S9) 


Included 


Included 


Included 


number 73-32033 


RMS (089) 


Included 


Included 


included 




00 (0S9) 


Included 


Included 


Included 


BASiC-09 and OS 9 are trademarks of Mhcreware SyStons Corp and MOTOROLA. Inc 
FLEX and UniFLEX are trademarks of Technical SystorE CorovRanti, Ire, GIMIX. 
GHOST. GMX CUSSY CHASSIS . are tradwwto of GiUiX. Inc 


VDisk (or FLEX 


N/A 


Included 


Included 


RAMD.sk for 0S9 


N/A 


$125 option 


Included 




0-FLEX 


N/A 


$250 option 


Included 




Supooil ROM 


N/A 


N/A 


Included 


Qf IX " ( • • S 'el 


Hardware CRC 


N/A 


N/A 


Included 
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Available: Wide variety of languages and otter software 
tor use vrltn either 0S-9 or FLEX. 

All GIMIX versions of 0S9 can read and write RS color 
computer formal 0S9 disks, as well as the 
Mlcroware/GIMIX standard formal. 

All 0S9/FLEX systems allow you to software selecl eltlwr 
operating system 



1337 WEST 37th PLACE 

CHICAGO, ILLINOIS 60609 

(312) 927-5510 • TWX 910-221-4055 



1965 OIMIX, INC 8-BS 




Portions of the text for '6Q* Micro Journal were 
prepared using the following furnished Hard/Software: 

aMVTCRS - MAKNAK 

Southwest Techlncal R-oducts 
219 If. Rhapsody 

Sen Antonio, TX 78216 ^^ 

S09 - 5/8 d* Ofsk - COS! - 821 2* 



Sprint 3 Rrfnter 



GIMIX Inc. 

1537 West 37th Piece 

fS^tirmfton - FLEX - Assorted HsrO.ere 

EDITORS - WCHD PROCESSORS 

Technlcel Sirs terns Consultants, Inc. 

Ill frovfdence Road 

Chapel HIIL NC 27514 

FLEX - Editor - Text processor 

Great Plains Computer Co., Inc. 
PO Box 916 

Idaho Felts, 10 85401 
Stylograph - 9%\\ forge - Spell 

Editorial Staff 

Don WIN lams Sr . Publisher 
Larry E. Williams Execuf Iva Editor 
Tom !« Williams Production Edltor 

Robert L. Nay Technical Editor 

Ad»lnl»tratfve Staff 
Mary Ffebertson Office Manager 

Penny Williams Subscriptions 

Christine Kochor Accounting 
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Articles submitted for publication should Include 
authors name, address, telephone number and date. 
Articles should be on either 5 or 8 lech disk In 
STYLOGRAPH or TSC Editor format with 3*5 lech Golem* 
width. All disks will be returned. Articles submitted 
on paper should be 4*5 laches In width (Including 
Source Listings) for proper reductions. Ffeeae Use A 
Dark Rfbbonff No Blue Jnklll Single space on 8X11 bond 
or better grade paper. No hand written articles 
accepted. Disks should be In FLEX2 6800 or FLEX9 
6809 any version or 0S-9 any version - 

The following TSC Text Processor commands 0M.T 
should be used: «sp space, «pp paragraph, .ft fill and 
• nt no fill. Also please do not hw mh within the text 
with multiple spaces. We will enter the rest at time 
of editing. 

All STYLOGRAPH commands ere acceptable except v eg 
page command* We print edited text files In contlnous 
text form. 



Letttrs To The Editor 

All letters to the editor should comply with the above 
requirements and mast be slgeed. Letters of gripes* 
as well as "prelse" ere solicited* We reserve the 
right to reject any submission for lack of "good 
taste" and we reserve the right to define "good 
taste". 

Adwartlsleg Rates 

Commercial advertisers please eontect 68* Micro Journal 
advertising department for current rate sheet end 
requirements. 

Classified Advertising 

All classified ads must be non-commercial. Minimum of 
$9.50 for first 20 wards and .45 per word after 20. 
All classifieds must be paid fa ail ■in. *b classified 
ads accepted over the phone. 
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OS-9 M 
User Notes 



By: Peter Dibble 
As Published in 68 Hicro Journal 



The publishers of 68 Hicro Journal are proud to announce the 
publication of Peter Dibbles 0S9 OSP, HOIKS . 

Information for the BKCIKMM to the FIX), 
leguLsr or CoCo OS9 

Using 0S9 

HELP, HINTS , PROBLEMS, REVIEWS, SUGGESTIONS, COMPLAINTS, 0S9 STANDARDS, 
Generating a New Bootstrap, Building a new System Disk, 0S9 Users Group, etc. 

Program interfacing to 0S9 
DEVICE DESCRIPTORS, DIRECTORIES, -FORKS", PROTECTION, "SUSPEND STATE", "PIPES", 

"INPUT/OUTPUT SYSTEM", etc. 




Programming Languages 

Assembly Language Programs and Interfacing; Baslc09, C, Pascal, and Cobol 
reviews, programa, and uses; etc. 

Disks Include 
Ho typing all the Source Listings In* Source Code and, where applicable, 
aaaembled or compiled Operating Programs. The Source and the Discussions in 
the Columns can be used "as Is", or as a "Starting Point" for developing your 
OVfef more powerful Programs. Programs some time a use multiple Languages such 
as a short Assembly Language Routine for reading a Directory, which Is then 
"piped" to a Baalc09 Routine for output formatting, etc. 



BOOK 

Deluxe Binder 



Typeset — w/ Source Listings 
(3-Hole Punched; 8x11) 



$9.95 

$5.50 



1 8^ SS, SD Disk $14,95 

All Source Listings on Disk 2 5- ss, dd Disks $24*95 

Shipping and Handling; $3.50 per Book, $2.50 per Disk Set 
* All Currency in U.S. Dollara Foreign Orders Add $4.30 S/H 

If paying by check - Please allow 4-6 weeks delivery 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hlxson, TN, 37343 



TW - OS* la * tr*4Ua«rk of Mlcrow*rt Symtcaa Corp. mat NocotoU Inc. 
TW - W Micro Journal it * ir4rfta*rfc of C a f j t#r PubiLthlif Inc. 
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FLEX™ USER NOTES 

THE 6800-6809 BOOK 

By: Ronald W. Anderson 

As published in 68 MICRO JOURNAL™ 

The publishers of 68 MICRO JOURNAL are proud to announce the publication of Ron Andersons FLEX USER NOTES, in 
bookform. This popular monthlycolumn has been a regular featurein 68 MICRO JOURNAL SINCE 1 979. It has earned the 
respect of thousands of 68 MICRO JOURNAL readers over the years. In fact Ron's column has been described as the 
Bible' for 68XX users, by some of the worlds leading microprocessor professionals. Now all his columns are being 
published, in whole, as the most needed and popular 68XX book available. Over the years Ron's column has been one of 
the most popular in 68 MICRO JOURNAL. And of course 68 MICRO JOURNAL is the most popular 68XX magazine 
published. 

As a SPECIAL BONUS all the source listing in the book will be available on disk for the low price of: FLEX " format only — 5" 
$12.95 — 8" $16.95 plus $2.50 shipping and handling, if ordered with the book. If ordered separately the price of the disks 
will be: 5" $17.95 — 8" $19.95 plus $2.50 shipping and handling. 

Listed below are a few of the TEXT files included in the book and on diskette. 

All TEXT files in the book are on the disks. 



LOGOC1 

MEMOVE.C1 

DUMP.C1 

SUBTEST.C1 

TERMEM.C2 

MC2 

PRINT.C3 

MODEM.C2 

SCIPKG.C1 

UC4 

PRINT.C4 

SET.C5 

SETBAS1.C5 



File load program to offset memory — ASM PIC 
Memory move program — ASM PIC 
Printer dump program — uses LOGO — ASM PIC 
Simulation of 6800 code to 6809, show differences — ASM 
Modem input to disk (or other port input to disk) — ASM 
Output a file to modem (or another port) — ASM 
Parallel (enhanced) printer driver — ASM 
TTL output to CRT and modem (or other port) — ASM 
Scientific math routines — PASCAL 
Mini-monitor, disk resident, many useful functions — ASM 
Parallel printer driver, without PFLAG — ASM 
Set printer modes — ASM 
Set printer modes — A-BASIC 
(And many more) 



•'Over 30 TEXT files included in ASM (assembler) — PASCAL — PIC (position independent code) TSC BASIC-C, etc. 

NOTE: C1, C2, etc. =* Chapter 1, Chapter 2, etc. 

This will be a limited run and we cannot guarantee that supplies will last long. Order npwjor early delivery. 

Foreign Orders Add $4.50 S/H 
Softcover — Large Format 

Book only: $7.95 + $2.50 S/H] 

With disk: 5" $20.90 + $2.50 S/H I 








j With disk: 8" $22.90 + $2.50 S/H 

See your local S50 dealer/bookstore or order direct from: 



Computer Publishing Inc. 

5900 Cassandra Smith Rd 

Hixson, TN 37343 

TELEX 551 414 PVT STH (615) 842-4601 




'FLEX is a trademark of Technical Systems Consultants 
September 85 



68' Micro Journal 



FLEX 
User Notes 



Ronald w*. Anderson 
3540 Sturbridcje Court 
fit\n Arbor, Hi 48105 

Editor Project 

Last time I mentioned my "Great Editor'* project. 1 
have been busily working away at the project, and the 
PL/ 9 object code now la about 10K. 1 an hoping to keep 
it under 13X alnce 1 have about 3JC of variables. That 
will leave a full 32K for the file buffer that holds the 
file being edited. If 1 can keep the buffer that big, I 
ahould ba able to adit « file of aome 125 aectora all at 
once. I apent about a week At this project, which, of 
courae haa put me alaoat full tlae back on the SWTPc 
ayatem. At the end of the week, tha editor waa pretty 
buggy >nd I waa weary. Progreaa waa very alow, so 1 
apent a week thinking about other things. The flrat day 
back on the project, 1 aade aome considerable progreaa 
eliminating buga, and alnce then, I've apent another week 
at It, adding aeveral more featurea. 

At this point, 1 can "aee the light at the end of the 
tunnel". That la, there la not a whole lot sore to 
Implement, though what la left la not trivial. I did 
decide that t needed a Jit tie break from the effort ao I 
an writing thla aa a "relief". 

More Peedback 

I have recalved aeveral sore lettera from readera 
alnce writing laat month'a coluan. Nearly all have 
indicated an lntereat In toplca oo PLEX and how It works. 
I'll continue Inclusion of aoae auch topic each aonth. A 
few lettara had very specific questions. One reader 
wrote for advice on how to get OS-9 running on his SWTPc 
ayatea. All 1 know about that la that it la neceaaary to 
uae a CIMIX proceaaor board and aonltor chip to do it. 
The quaatlon would have been better addreaaed to Peter 
Dibble (aaybe it was aent to hia alao). I'll write Bn 
answer, but it won't be of auch help. Another resder 
wrote ic s list of early buga in PLEX and thought a 
little historical information night be of lntereat to aany 
readera. I gueaa I waa lucky not to have been tripped up 
by a couple of the buga he mentioned, alnce 1 had one of 
the aarLieat versions of PLEX2 . I had a pair of dlak 
drivea before PLEX, and when it waa aade available, 1 
receivad a copy of it. This writer alao mentioned one 
bug thst would be of gsnersl Interest, particularly to 
new uaera of FLEX, the probiea of changing diaka in a 
drlva with a ftia or flies opan. (Lf the program you ara 
running doesn't make apeclal provision for doing thla, 
DON'T. It will wreck your disk. I'll get Into the 
reasons another tlae, alnce 1 aeea to have uaed up ay 
apace for thla month). 

Aside from the general agreement about PLEX toplca in 
detail, there waa a great diveraity of lntereate, at least 
within the dozen or ao lettera 1 have received ao far. 
The folka that would call themaelvea the hackera (1 
aaphaalze that is their tarn), aeea to need a "hackefa 
coluan". Thara are about three that responded that 
could do a much better Job on hacker toplca than I, and I 
auggeat Don, that you get one of them to do a aonthly bit 
for '68\ (added) 

Edit or" a Iota: X do not have the naaea of those who 
believe thay could do a 'batter' Job of It. However, I 



would aure Ilka to hear from some of then and look over 
aome of their materiel. I gueee it la poaeible thet 
aomeone could do it better - but I wonder 11 AFT could do 
it longer ea well? 1 wonder? 

BMW 



If any of ua (readera of '68") are Juet aoftware ueera, 
none reaponded. I auapect that all the aoftware 
conaumere or moat of them at least, have switched to the 
other branda for which there la a large aupply of "plug it 
In and uae it" eoftwere. That being the caae, there 
certainly la an obvloua need for more "technical" 
information here, though I would think there would be 
aome lntereet In languagee end their lmplementetlone for 
the 6809. One letter did aay thet the thlnga on FLEX 
were apprecleted, but thet the reader would be happy If I 
would continue thlnga Juat aa they had been going. 

1 received one rather lntereeting letter from aomeone 
who took leeue with me over my diecuealon of function keye 
va control codee. Unfortunately, 1 heve alaplaced tha 
letter In ay pile eoaewhere, but 1 remember whet it aald, 
ao I'll do a rough paraphreee. It aald that the writer 
dlsagreea with my feeling that function keye ehould not be 
ueed. It went on to deacrlbe the nice thlnga for which 
function keya may be uaed In a datebeee environment, in 
which the computer operetor le essentially filling in the 
blanka in the detebeae entry mode. Function keye can be 
programmed to output a whole etrlng of charactere end 
cen be aoat uaeful In auch applications. The letter went 
on to aay that of courae in text editing environments , 
the writer agreed that control keya are more uaeful. 

About here I begin to wonder how carefully people reed 
what 1 have written. Plrat of all, Td like to point out 
that the heading for the dlecuaaion in queatlon waa 
"Editors". Clearly I waa referring to text editing 
applications in the major part of my diecuealon, 1 quote 
that column near the end of the dlacuaalon. 

"I'm not eeylng thet function keya are useleaa tn 
eome thing like a CAD ayatem or perhepa a general ledger 
peckege in which eech one will bring up a different menu 
or function, Juet that aomeone typing text ought to be 
able to control the curaor without looking at the 
keyboard." While t didn't mention Databaae entry 
applications specifically, the aaaociatlon ahould ba fairly 
obvloua. I don't think 1 dlaagreed with the writer of the 
letter at all, or at leaat only in mild degree. He did 
aay that he realized that tha columnist haa th* laat word 
In auch dlacuaalona, alnce he writea a column for a 
publication in a different field. 

I atlll would like more feedback. The reaponae waa 
much aa 1 anticipated and aald, much to the annoyance of 
at leaat one reader. Out of the aome 7(100 (added: 
actually much more Ron, aome thing like I5,000f» including 
newatand readera, overaeee (57X of distribution), ate.) 
coplea of '68' that are distributed, 12 people took the 
time to respond; not a very isrge percentage of ths 
resdersJ (Don, how asny responses do you get to your 
resder surveys?) 

(added: Ron, if I Include prepaid poatage, or aome other 
Inducement, etc., reaponae can run aa high aa 90X or 
better, for surveys of leas than 200. One that waa about 
1880, waa 1002 - we called each one. For lnatance I gave 
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• bad review of e book, "Fire In the Valley". 1 received 

• bout 100 or eo letters about that particular aubjact. 
Over 90X agreed, and aoet were qualified. Pact la 
actually none dleegreed, but a few thought I waa too 
harsh. Then I went on a bit - In the June '85 laaue - 
about our beginnings and lose other noetslgls stuff. I 
hsvs received 200-300 responsss to thst. I gueee r« 
Just lucky v or soae thing. However, for every letter you 
actually receive, you csn figure st lesst s couple of 
hundred thst sgreed but did not reply.) 

One subject I havs received en extra large eaount of 
feedback on Is Tandy and the CoCo. 1 have been at odda 
with Taody and eoae othsr aagazlnee concerning the future 
of the CoCo, ss we know It. Host was froa stall 'cottage' 
types who were selling hsrdwsre or softwsre, or both, to 
thst aarket. Although eoae wsre rether large concerna. 
The repJlea are heavy each tlae 1 conent, and practically 
100X agree that thlnga are falling pretty well as we 
called It. That la a declining market with no 'real' help 
In eight. 

I gat a lot of feedback froa eoae of our preaent and 
paat advertlaera, with one central these - "Hindsight la 
alwaya 20/20"! Especially when I talk about the dlfffculty 
and expenae required to crack a Big Blue or Fruit 
■srkst. So you see too. It is sorts like the old esylng 
- "It's sccordtng to who's ox is bslng gored'*! 1 think 
you under eetlaete the extent of your Input. The 
engineer le slwsys listening for thst 'one' squeaky wheel, 
eaong hundrede. Aleo If he doeen't blow hie whistle, who 
will? 



OMV 



Another resder eeeeotlally ssld thst 1 should write shout 
details of FLEX In soae depth. He hsd "leerned by 
reeding snd re-reedlog article* lo the esrly computer 
■age tinea until thay aade eeoee." 

Hy outlook on learning froa reading vs achool la sore 
In line with the coaaente of the second of thoee two 
resdere. 1 grsdusted froa engineering achooj In 1956 and 
1 have been learning ever since, though I have not gone 
back to achool. (In truth, I atarted a course once but 
had to quit becauae I got too buay at work.) Hy laat 
elect roolce coureee covered "Non-linear Vacuus Tube 
Circuits", and there waa a brief section in a Phyalce 
courae regarding solid atate pbeonaena (tranalstora sod 
dlodea). Hy flrat Job out of achool 1 found that 1 would 
have to laarn all about how to deelgn circuits with 
tranalatora In a hurry. Off to the booka . Then caae 
digital logic RTL and DTL (with resistors, diodes snd 
trsnslstors st first). I hsd to dig snd leern sbout 
Boolesn Algebrs snd Xsrnaugh Naps for logic alnlndtstlon, 
sequentlsl logic, stc. Then csae the lntegrsted circuit 
revolution DTL, TTL, CHOS, the whole srss of snslog 
lntegrsted operstlonsl aapllflere, A/D converters etc., 
snd finally Hlcroprocsseore. Sorry, resdere, but 1 never 
took s forasl course on progrsaalog in ANY lsngusge. 
Just hit the books sgsln. Of course the resdlng wsen't 
sll It took. I hsd to tiy out whst I lesrned. Do soae 
logic deelgo... elapllfy combinational logic vis Karnaugh 
asPs... build soas TTL circuits snd aake theawork... 
etert progrswalog In aschlns code, ssseabler, BASIC, 
Pascal, Forth, C, PL/9, snd s few others. I Just doo't 
buy ths "You csn't leern by reeding/' erguaent. 

PLC* Pilss 



At sny rste, I really 00 appreciate those of you who did 
respond. You hsve given ae st lesst s L1TTLK direction. 
I'll do ay beet to Include aore on FLEX. Hayba psrt of 
the problea Is thst 1 think ths title of the coluan Is 
flex USER notes, sod soae of you think It la FLEX ueer 
notes. I'll try to bs aore diverse end Include soae thing 
for everybody. 

One thing becsas obvious ss I reed ths letters thst 
1'vs received eo fsr. I got prstty stroog with ay bit 
sbout aore CAT snd COPY utilities, but I didn't aske 
ayself clesr. Seversl resdere took ay words sa meaning 
thst I didn't wsnt to sec ANY utilities published in '68'. 
NOT SO, sod I sa sorry I waa n't aore clesr In whst I wss 
trying to ssy. Obviously, ss soae of the reedera 
obeerved, If '68' Micro Journal dldo't publish utilities 
there wouldn't be auch reeeon left to continue publishing 
it 4 Thoee of you who have followed this coluan for s long 
tlae know thst I've Included utilities end other progreaa 
and fragaente of prograas right along. M? coaaenta were 
Intended to be Halted to CAT and COPY utllltlee and 
aaybe one or two othere (if the ehoe flte). The point 
wee that theee two particular utllltlee have been 
prograaaad to deathl TSC euppliad CAT and COPY with 
FLEX froa day 1. When they releaaed their Utllltlee 
Package for eele, It contained FILES. CMD and DIR.CKD, 
both varlatlooa of CAT. FILES doee a CAT In aultlple 
coluana aa oppoaed to the original CAT which Hated the 
cooteote of the diak In one narrow coluan (becauae SVTPc 
originally aold a 40 coluan printer) with ae auch 
loforaatloo on each ae the original CAT had* DIE la aore 
coaprehenelve end Hate atartlng and ending eectore, 
nuabar of aectore, date, and kind of flic protection for 
each file. 1 don't think I would be exaggerating if 1 eald 
that at leaat 5 or 6 aore CAT and COPY utllltlee have 
been publlehed In '68' over the paat few yeara. Enough 
a aid. 

The one reader who really got naety thought I wee 
talking down to you resdere. If sny of you slso fslt thst 
wsy, ay apologias. Ths aost rscsnt letter wee rsthsr 
lndlgosnt about ay suggestion thst you could READ 
available books on Aaaeablar programing and the Advanced 
Progreaaer'e guide and abaorb the loforaatloo. "Why do 
you thlok thsrs srs schools snd teechere?", he eald. 



Having eo aald, I'll continue the tutorial on FLEX. 
The reader who eald one can't learn by readlog Indicated 
that file haodling In FLEX le e problea. He hae been 
able to copy ooaeone elee'e prograa but not to write his 
own. Let'e eee if we can coae up with a lucid 
explanation. 

Flex (and Juat about any other operating eye tea) uees 
s buffer of eoae eort for esch file that Is open. (A 
buffer le sn srss of aeaory uesd to hold dsts. FLEX 
calle thle buffer area a File Control Block or FCB for 
ehort. The PLEX2 or PLEX9 FCB Is 320 bytee (aeaory 
locstions) long. The flret 64 bytee contsln Information 
and workspace concerning the file, end the laat 2S6 are 
ueed to hold one aector'e worth of data. You could call 
thoae 256 bytee a "eector buffer*'. When a file le read, 
FLEX raada a whole eector at a tlae Into the eector 
buffer portion of the FCB for that file, though the uaer 
accaee to the file le on a character at a tlae bssls. 
FLEX rsturns s chsrscter froa the buffer end lncreaente 
s pointer to the buffer eo next tlae you ssk it for s 
chsrsctsr, you get the next chsrscter. Wbsn the buffer 
pointer reechss ths snd of ths buffer, PL£X eutoaatlcslly 
rssds ths next eector snd aoves ths pointer to the etsrt 
of the buffer sgslo. Thst is getting s little shesd of 
our story, however. 

Let'e do (of sll things) s slaple 00PT progrsa since 
thst Involves opening two fllee, resdlng froa one end 
writing to ths eecond. Refer to the accoapaoylng Hating 
for thia explaoatlon. If you want to talk fllee on the 
aaeeabler prograa level, there ere a few handy routlnee 
built Into FLEX that aake life a little eaaler for you. 
Keeentlally you raeerve an area of aeaory for the FCB, 
point the X reglater at it, and Juap to the FLEX routine 
CETFIL. GETFIL reede the flleneae Information on the 
coenand Hae end places it properly In the FCB. 

Suppoee our progrsa la called DUFLICAT.CHD. You type 
DUPL1CAT PILS1 FXLE2. PLfiX loede DUPUCAT.CMD end eterte 
running it. You point X et the FCB end JSR GBT1L. 
GETFIL reede the coaaend line buffer and gete the nana 
FILE1. It put a the uaae in bytee 4 through 8 of the FCB, 
end (perhepe here le where the reeder had hie trouble) 
pute oule (300) in bytes 9 through 11 of ths FCB* 
Fllsnsaee can be up to 8 cherectere long. They auet be 



6 



September 65 



W Micro Journal 



placed In the PCB starting at byte 4 Cflr«t byte of an 
PCB la byte 0) and extending through byte IK If the 
filename Is shorter than 8 characters, the remaining 
locations must be filled with S00. GETFLL will get the 
drive number specification from the command line If It la 
there and put It In byte 3 of the PCB. If no drive la 
specified* G8TFIL puts the working drive number there. 
(The number is In HEX, S00 for drive $01 for drive 1 
etc. it la NOT In ASCII as $31 for drive i>. 

If an extension was specified in the command line, 
GBTPIL will place that in the next three locations after 
the filename, that la, .bytes 12 to 14, If there was no 
extenalon none will be put there. Now, bring on SETEXT . 
FLEX SSTEXT routine will aupply a "default" extenalon that 
the programmer chooaea when he wrltea the program. 
Let'a uae .TXT for a default extenalon. Look at Pg. 13 
of the advanced programmer'** guide. It telle me that In 
order to uae SKTEXT, I have to point X at the FCB (LDX 
UNFILE), load the A accumulator with the dealred default 
extenalon code, In this case 1, (LDA #1 or LDA #$01 If you 
like). Now JSR SETEXT. If there waa an extenalon 
specified In the command line, It will be left alone. If 
there waa none* bytea 12 to 14 of the PCB will now 
contain "TXT'. 

NOW we are at laat ready to open the file. Starting 
on page 29 of the programmer's guide, are the 
description* of the function codea. Function 1 Is 
Indicated bb the Open for Read coda. We put the $01 In 
the byte of the INPILE by (LDA #$01, ST A O.X (alnce X 
Is pointing at the start of the PCB anyway). Now we do a 
JSR FHS. PHS is a routine located at $D406, (Actually 
$D406 contains a Jump to the actual PHS entty point). 
PHS trlea to open the file and returns to the calling 
program. If PLEX was successful, the ZERO flag of the 
processor will be SET. If an error occurred, the ZERO 
flag will not be aet and the code BNE ERROR will branch 
to your error handling routine. 

Suppoae for a moment that there waa no auch file to 
open for read. PHS would return with the processor ZERO 
flag cleared and the BNE ERROR would take the execution 
of the program to the error routine. There ure a couple 
other uaeful routines In FLEX, again documented In the 
programmer's guide. One of them is the RPTERR routine. 
Your error handler ahould atart out JSR RPTERR.. The 
RPTERR routine will look at the aecond byte of the 1NFILE 
for an error code. If there la no auch file, the error 
code la 4. RPTgRK will go read ERRORS. SYS file If It la on 
the system disk end report FILE NOT POUND. If it can't 
find ERRORS. SYS It will report DISK ERROR #4. The next 
two instructions In the Error handler ahould be JSR 
PMSCLS, which will cloae any open files, and then JHp 
WARMS, which geta you back to PLEX ao you can try again 
with the program. 

If the file is present on the dlak and It la opened 
successfully, FHS returns with the ZERO flag set, and the 
BNE ERROR la paaaed by. One point that some of the 
aoftware suppliers aeem to have missed la that If the file 
la opened successfully, PHS changea the function code (1) 
that we put In the flrat byte of the PCB to a 0* which 
Indicates that the file la open for read or write. That 
Is, you don't have to explicitly put a in the flrat byte 
of the PCB after opening the file. Now let'a read the 
flrat byte of the flia. If you've juat called PHS to open 
the file, X will atlll be pointing at the PCB, but 
generally we read a file In a loop and do aomethlng elae 
in the loop ao that X might contain a different value. 
Therefore uaually we point X at the PCB with LOX UNFILE 
again, and than Juat JSR PHS. If a byte U reed from the 
file, again the ZERO flag la clear and the byte la in the 
A accumulator. If there was an error, a BNE ERROR will 
again get you to the error handler routine. After tha 
laat byte of a text flla haa bean read, an attempt to 
read another will result In error #8. Uaually the error 
routine checks to see If that waa the error on en input 
flla, and treeta it aa an end of file flag. 



1 am being a little general here but the asaembler 
Hating that accompanlea this is full of comments thst 
will help clarify each atep In the process. Opening a 
file for WRITE is about the aame proceas except that the 
function code la 2 rather than U for the Open for Write, 
if the file being opened already exists, PHS will return 
error #3, If the file does not already exist, It will be 
opened for WRITE. All the process of GETPIL and SETEXT 
are carried out the aame way as for opening the Input 
file. Of course you have to have specified two different 
file control blocks, the namea of which tre perfectly 
arbitrary. I like to use 1NP1LE and 0DTP1L or 1NPCB and 
0UTPC6 to distinguish the input and output files more 
simply. 

Back to our DUPL1CAT program for a moment. After 
both filea are open, we simply LDX UNFILE, JSR PHS, snd 
we have the next Input character in ACCA. Now we LDX 
#0UTFIL and JSR PMS with the character to be written in 
ACCA. If you try running thia program you will be annoyed 
at the action of your two disk drlvea. It wlLl read one 
character at a time and write one at a time. The result 
Is that it reada 252 characters (one aector) and puta 
those In the 0UTP1L aector buffer. Then PLEX seea that 
the Input buffer la exhausted and the output buffer la 
full, and It wrltea the output sector buffer to a sector 
of the output file, and then reads another Input sector. 
A good copy program uses a large block of memory, reading 
In many sectors from the input file and transferring them 
from the sector buffer to a large memory buffer. It then 
awltches modes and transfers characters from the large 
buffer to the ODTFIL sector buffer. Such a program can 
empty the input buffer faat enough so that the disk drive 
doesn't deaelect the head between sector reada. It can 
fill the output file sector buffer faat enough so that the 
write takes place without head deselection. Our dumb 
DUPLICAT program will clack the head select aolenoida 
back and forth if you are copying from one drive to the 
other, and run the head back and forth from track to 
track if you are copying on the some dlak (to a file of a 
different name, of course). The point of the exercise is 
not to write a better copy utility, but to show how to 
open files, read from them* write to them, and close them 
In an orderly manner. 

Speaking of cloalog them, after the end of file is 
detected, you simply put function code 4 in INFILB flrat 
byte, point X at INFII.I and JSR PHS. You <to exactly the 
some thing with OUTPIL. If both files cloee without error 
you JHP WARNS and you are all done. It might be worth 
mentioning here, that thia program la the baala for doing 
what la called "filtarlug". Suppoae you have a "fotalgn 
text file (one from another operating ayatem, not one in 
German). Suppoae that you received It over a modem, and 
that it la s BASIC program thst la nearly compatible with 
your BASIC interpreter, but that it haa LP to terminate 
llnea rather than CR bb FLEX text files have. Simply copy 
the file to another file ualng the progrem Hated here 
with one little addition, letween the reading and writing 
of each character, while you have It in the A accumulator, 
you simply do the little routine ahown In the Listing. 
Essentially, you compere* ACCA with a LP and If It matches, 
you losd ACCA with CR before writing the output file. 

That ahould bring to mind all aorta of interesting 
thloga you could do. Add a paeudo random number to each 
letter to encode a message. Write a program to aubtract 
the same paeudorandom sequence from the encoded message 
sod you have unscrambled It. If aeoder and recipient uae 
the same random number generator program and start with 
ths same aeed, thia worka like magic. 

You can convert upper to lower caae or vice veraa, 
remove all control characters (if you read a control 
character, juet don't write that character to the output 
file), etc. I hope thle baa been a little helpful and 
perhapa haa given yon some ideas for writing some ussful 
UTILITIES. 

Aa a laat minute note a week after laat working on the 
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above, no further reiponaea have arrived In ay pull. Next 
•onth 1 have a few things to aay about Edltora again. 
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opportunity to increase your skill and knowledge in the latest 
microcomputer software technology Plan to attend — Register 
Today! 

Seminar only $150 Hotel Package* $350 

Location Marriott Hotel, Des Moines, IA 

Don't Miss it — Pre*Register Now! 

Call 515-224-1929 or Write 

MICROWARE SYSTEMS CORPORATION 

1866 N.W. 114th St * Des Moines, IA 50322 



-~7fuctMt/ate>- 




'Hotel package includes 3 nights, singta occupancy 91 the Matrbv Motet 

end registration lee, 

OS-9 and BASIC09 are trademarks of Mterowgre and MotOfuh 
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Replay 
l.aet month's coluan was a bit too quick of a job. 
I waa very dlatracted by the end of the eeaeater. I've 
decided to make thla ■onth'a coluan a replay of laat 
■onth'a. As they aay: keep doing It until you get It 
right I 

School 

The achool year la over now. Even the qualifying 
exams are done. The department seems empty and 
(compared to the paat Month) calm, 

L at 111 recommend graduate achool, at laat the U of 
R Computer Science Department. Graduate atudanta are at 
the bottoa of the heap, but we have FUNf There'e so 
tremendoualy such there la no time to learn when you 
live a normal life. I'm getting s chsnce to chip swsy 
st It. Of course* that Just uncovers sore,,. 

I thought I waa unuaual In dropping a career to 
return to achool, but a good fraction of the first -year 
claaa did the use thing. It's nice to know thst I'm 
not the only one who gsve In to the lure of grsduste 
school sfter years of struggling sgslnst It. 

If you don't find coaputers s stiff challenge sny 
sore | the conventional wladom la to think about 
management. My auggeatlon: conaldar a graduate degree. 

The Level Two Module Directory 

Laat month we left Klcrowsre with a problem. Where 
should they keep Idle module*? Here's how they aolved 
the problea: 

The chunk of memory In the ayatea addreaa apace 
dedicated to the module directory Is filled with two 
different types of records. Module directory entries 
sre In s tsble thst grows stsckwlse (laat-ln/f lrat-out ) 
from one end. Each Module directory entry Include* a 
pointer to a DAT (Dynamic Addreaa Translator) Image. 
These DAT Images sre slso storsd In the module 
directory'* block of memory In s tsbls growing stsckwlse 
from the other end of the sres. 

A DAT Image deflnaa something that I like to call 
an addreaa apace. Whan the DAT Image la loaded Into the 
DAT hardware It deflnaa the mapping of addraaaea In the 
proceaaor to location* In the ayatea'e memory. The DAT 
Images uaed for modules are unuaual In that they are 
never loaded Into the DAT. They only uaed by the module 
handling OS-9 service* , never by the proceaa scheduling 
ssrvlces. 

Sevsrsl modules might share the aame DAT image. If 
modules are loaded from the aame file they all go into 
the same sddress spsce (with the aame DAT Image). To 
fully identify the location of a module In memory OS-9 
uaea the DAT Image and the addraaa (offast) In the 
address spsce defined by thst DAT image. The length of 
the module Is stored In the module header. 

Nodule directory entrlee and module DAT Image* sre 
allocated stsckwlse. Unfortunately for the OS-9 
daalgnera, they aren't freed the aame way. We can be 
plaaaed that they didn't decide to force ua to arrange 
our module uaage around a atack. imagine , you load a 
prograa (aay copy) than you load another (aay rename). 
You copy a few fllee than you want to free the memory 
up. You try to unlink the copy module! but you can't. 
Pirat you Bust unlink noise, THEM you can unlink copy. 
If you atlll waot to do some mora renaming you'd have 
to loed rename sgsln. Particularly when 
loading/ linking/ unlinking can be done lapllcltly, thla 



atackwlae btt would be no fun I 

The solution for this problea 1* something between 
cute trick end kludge. It relies on s lucky bresk. 
Nothing ever remembers the sddress of s module directory 
entry or s module DAT image long enough to span the 
recognition, by F$VMOO, of a module. Whenever the 
addreaa of a module directory entry la needed an 
appropriate ayatem call la uaod to scan the directory 
and find the entry, then the addreaa is uaed promptly 
and dlacardad 

Since polntera into the module directory are never 
aaved the directory can be "garbage collected 11 and 
compacted. 

Deallocation oi module directory entrlea can be 
done by flagging them aa Idle. Thla can leave empty 
slota In the middle of the module directory, but that'a 
ok. The eyetem knowa the directory needa coapsctlon 
when the module directory entry table and the OAT image 
table bump Into each other. (Thla can only happen when 
a new module la being added to the directory.) 

When the module directory and the module DAT Image 
apace meet, OS-9 compacta the atructure. It goea 
through the directory antrlea squeezing out the idle 
apace. Thla la pretty atraightforward. Squeezing the 
DAT Image area la trickier becauae there are polntera to 
the DAT lmaga* In the module directory entrlea, and 
becauae the DAT Images vary In site depending on the 
else of the addreee apace they define. Each time a 
module DAT image la moved the module directory entrlea 
auat be aearched for referencea to that DAT image. Each 
pointer to the DAT image must be adjusted to point to 
lta new location. 

If there la atlll no rooa for the new module 
directory entry after compaction, OS-9 will return an 
error 206 (Nodule directory full). 

Garbage collection and compaction sound* pretty 
arduous. It Is. But it's not s big Issus. For ons 
thing, If the module directory Isn't filled slmost to 
the brim It will only be compacted occasionally. 

Another reaaon not to worry about the time apent in 
compaction la that It lan't that long. 

The amount of time it takea to recover an idle 
entry depanda on the number of entrlea between It and 
the active end of the directory (Remember the directory 
la added to atackwlae. New entrlea are alwaya added at 
one end). The voret-csse time to compact the directory 
will depend on the site of the directory squared. The 
time for compacting the module DAT lmagee la alao order 
of the else squared. 

My module directory contalna 62 modulea now (output 
from ND1K). If there wera 61 Idle entrlea acattered 
through the directory the time to do coapactlon would be 
about fifteen-million times the time to ahlft one 
directory entry. Aaauming thst It tskes sbout 50 
machine cyclaa to ahlft an entry one place we get about 
elx minutea to do the coapreaalon. 

Obvioualy it doesn't tske thst long. The Important 
difference between reality and my aoalyaia la that I 
included far too many idle module directory entries. In 
my system slmost sll the modules sre losded st systea 
startup snd never unlinked. Only the lsst five or ten 
modules In the directory are dynamic, ao idle entrlee 
fer from the active and of the table are rare. Cueaalng 
that after the top ten entrlea there are no idle alota 
in the directory wc get: 
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CiO"2)*tt) cycUi 

or about three thousandth* of a second for a compaction. 

If you don't pack, your module directory up to the 
Halt, and you load/unlink aodulea In a generally 
laat-ln/f lrat-out way; you say never see a compaction 
that has to shift aore than one entry. 

1 think the choice of the module directory's dsts 
structure is Interesting. 1 didn't think such of it 
when I first figured it out. Thsre ere other ways to 
arrange It that would not have needed compaction. When 
1 looked harder It looked better. All the clean ways of 
organizing the module directory would have Involved none 
form of linked list. Linked lists are fine, but It's 
quicker to search a tsble than a linked list. My guess 
Is that someone at Mlcroware decided to sccept the 
kludginess of garbsge collection end compsctlon becsuse 
the result will slmost slwsys be fsstsr. 

Thsre ere s few prsctlcsl results of the module 
directory's structure. One Is thst loading modules In s 
multi-user system (They frsgment the module directory 
mors) thst hss slmost filled the moduls directory might 
get slow. Time spent doing compsctlon could slso 
explain smsll chsngss In execution time. 

Remember thst moduls directory entries snd module 
DAT Images csn move. Don't ever ssvs s pointer Into 
thst sres; It may become meanlngleaa. 

Notice that you can't find modules using only the 
module directory. You need the DAT Images too. As 1 
see It the only information In s module directory entry 
thst Is ussful without the DAT Image Is the ussge count 
for the module. 1 wonder whet ths FSCModDr system cell 
Is for. 

It would be useful to know how big your module 
directory la. The limit on the else Is 2048 bytes; 
that's the maximum that the F$GModDr SVC will return. I 
think moat ayatema uae 1536 bytea for the module 
directory. Check the D.ModDlr and D.HodDlr+2 fields In 
your ayatem direct page to get a firm anawer. 

What followa la part of the module directory from 
my system: 



Addr 



234567 89 A B C D E F 



0A00 


0PP8 


0F06 0000 0001 0FFS 


0F06 


02B0 


0000 


0A10 


0EA6 


5F4E 0C00 0001 0EA6 


5F4E 


0C2E 


0001 


0A20 


0EA6 


5F4E 1892 0001 0EA6 


5F4E 


1907 


000 1 


0A30 


0EA6 


5F4E 2230 0003 0EA6 


5F4E 


3305 


0000 


0A40 


0EA6 


5F4E 38FD 0000 0EA6 


5F4E 


3DBP 


0000 


0A50 


0EA6 


5F4E 4060 0000 0EA6 


5F4E 


42BE 


0001 


0A60 


0EA6 


5F4E 4407 0001 0EA6 


5F4E 


44FF 


0001 


0A70 


0EA6 


5F4E 4525 0001 0EA6 


5F4E 


4631 


0003 


0A80 


0EA6 


5F4E 49CD 0003 0EA6 


5F4E 


40F2 


0000 


0A90 


0EA6 


SF4E 4EIE 0000 0EA6 


5F4E 


4E4A 


0000 



The module DAT images stsrt st $1000 sad grow downwards. 
Each directory entry Is eight bytes long snd contains 
four 2-byts fields. For the first entry those fields 
sre: 

Module DAT Image pointer: $0FF8 

Address spsce sits: $0FD6 

Offsst to module: $0000 

Nodule Link Count: $0001 

Virtual Memory 

My column In the July Issue Included commenta on 
virtual memory. Now the detalla are out on the Clmlx 
68020 ayatem. 1 juat don't know how to react. A 
megabyte la a lot of memory; our IBM PC frlenda gat a 
lot dona with 640K. For the kind of thing that people 
do with peraonal computare thaae daya a megabyte ahould 
be plenty. Evan without virtual memory the Clmlx 68020 
eyetem will be able to compile programs, do tsxt 
editing, snd hsndle sny reseoneble-alzad spreed ehsst; 
It will do whst 1 do on my home computer now — much 
fester. 

I get nervous whsn Richard Don lnvokss VIRTUAL 
MEMORY sod stsrts talking about Frsnt Llap, Prolog, and 
an Ada Compiler. t fear that aomeona nee "aold him e 
bill of goods." I'm willing to be convinced. If enyone 



aeee e reel application running Franc Llap on the Clmlx 
pleeae tell me ebout it. For reel Hep application* see 
your neereet Artificial Intelligence fenetlc. Suggest 
Macayma (doea calculue), Connlver (makes plane), or 
Argot (underatande some English) to get him on the right 
treck. 

Users Croup 

1 sm sn example of the Users Croup losing people. 
Even though t am lte Vice Freeldent eomehow 1 clipped 
through the system when 1 moved. lt'e my feult I'm 
efreld. I bet 1 didn't send s chsage of eddreee cerd 
In. Finally a collection of HOOT newelettere ceught up 
with me. I'm lmpreeeed. 

The MOTD newsletter makee lntereetlng reeding. 
Creg Moree wrltee the "Baelc09 Corner." In the letest 
Issue he dlecueeee eubroutlnee end proceduree. There'e 
s column csllsd "Ihs COCO Advocsts" by Jim Schmidt. In 
the leet leeue he talks ebout hie experience with en 
MS-DOS machine from an 0S-9 ueer'e perepectlve. Lorl 
Crovec wrote e rether horrifying article called "How to 
Roeet a Computer." Let me quote her deecrlptlon of one 
of the ingredients: 

1-4 Memory Boerde Note: Both of theee may aleo 
be found in the computer. Be eure to remove them from 
the computer carefully, end cleen off thoee funny 
looking bite end plecee. 1 throw them In e pot in the 
freezer end uee them leter for eoup. 

The moat lntereetlng pert of the leteet MOTD, end e 
relief efter reeding that cooked ribbon cable teetee 
rether like spaghetti, wee the Softwere Exchenge News. 
Dave Kalelte end hie group heve made exceptlonel 
progreee. Thlrty-elx dleke ere Hated though aome of 
them eren't reedy yet. 

Some highlights of the eoftwara library: 

.The Adventure game, both executable and Mlcroware C 
aource. The program la ao big that the aource fills a 
disk. 

A set of useful C programming tools, mostly by Carl 
Krelder (A C beautlfler, a program that flnda function 
headara and liata them with their line numbera, a 
program that slices a Mlcroware C object library Into 
lta component parte, a C croaa reference generator, and 
alaple formatted print program for C code). 

XLlap. Read about It In the Byte Artificial 
Intelligence laaue. 

The User Notes Book 
Ws hsve been pulling s trick thst Is commonly used 
oo csady bare with my "User Notes" book. The price of 
printing went up ao we ahrunk it by thirty pages or ao. 
The print la a little smaller snd there's less empty 
spsce, but my critics ssy thst It is still legible. I 
hope you like It. 

Mlcroware'a New Quality Aaaurance Program 

Mlcroware la growing up. 1 admit that It la a good 
thing for all of ua, but 1 don't Ilka It. They ueed to 
be auch a coay little company. Now they've atarted a 
heavy duty quality aaaurance program. Somehow thla 
ramlnda me of the Haynes underwear comae rc is 1. There 
sre a group of thrss people st Mlcrowsre responsible for 
cstchlng snd keeping treck of bugs. Do you Imagine 
laepector three ssylng "They don't ssy Mlcrowsre until 1 
ssy Mlcrowsre 1" 

This new department at Mlcroware ahould do a few 
nice thinga for ua uaara. First, Inspector 3 snd his 
helpers should cstch some of the bugs thst we hsve been 
finding for them. Mlcrowsre has alwaya been pretty good 
about taatlag their atuff before they ahlp, but we ceo 
expect them to get better. 

Buga will slip through (Murphy's Law). In the 
Interval before a new raleaaa with a different eat of 
buga cornea out they plan to Include a Hat of known buga 
(with flxea and work arounda where they are knowa) In 
each eoftwara package. Nice Idea. It used to be that 
wa hed to call the hot line to get flxea for known buga. 
Now the free ninsty-dsy support will be a little laaa 
important. 

Big customers (ODti and dlatrlbutera) will get 
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eoeethlng like a newsletter with all the latest bugs and 
flxea. The Information len't secret, Mlcroware just 
can't afford to aend mailings out to every OS-9 uaer at 
frequent lntervala. Check with the coapsny you bought 
OS-9 froa to find out their policy on this. Smoke sends 
out a newaletter don't they? Haybe they'll put 
highlights of the bug Hat In It. 

Counting Blessings 

I ran Into some benchmark progress on Usenet s few 
weeks sgo. 1 rsn them on ay aachlna. One waa a cottplex 
net of C language progrsas. My aachlne (2 MHx 6809 
running HW C) averaged about a quarter aa faat as sn 
eight Nhz 8086 running with no wslt ststes. The 6809 
looked best st procedure cells snd worst st handling 
32-blt Integers. The benchaark progrsas were s sieve, s 
progrsa thst did floating point operations, s quicksort 
of long Integers, snd s progrsa thst calculated 
flbonachl nuabers (Integers). None of the benchmarks 
teated the 6809 'a atrong polnta (as compared to 8088s), 
handling byta variables and Interrupt aervlce. 

I didn't do anything to the prograaa. I Imagine 
thst L could hsve speeded soae of the benchaarks up by 
using DIRECT variables. 

The set of benchaark progrsas sre too long to 
Include here, but they were taken froa the August 1983 
Byte snd modified to sccoaaodste register vsrlsbles. 
The Usenet note Included ststistlcs for eeversl C 
compilers. The best all-around MS-DOS C compiler looked 
to me like the Hlcrosoft C saall model. The comparison 
between that and Mlcroware C la: 



float 


Hlcroaoft 
time 153.9 
size 18996 


Mlcrowsre 
708 
5834 


aleve 


tlae 
size 


2.91 
5844 


9 
3819 


qaort 


tlae 

size 


46.31 
10594 


213 
8810 



fib tlae 32.66 50 

size 5882 3814 

The surprise wss s very slaple bsslc benchaark 
progrsa: 

5 TIMES - "00:00:00" 

10 for x-1 to 10000 

20 if eqr(x) <> lnt(aqr(x)) then 40 

30 print aqr(x), 

40 next x 

45 print TIMES 

50 end 

The execution times in the notea I read were: 



UN- PC 


3 aln. 


19 


eec 


6MHr IBM- AT 


1 aln. 


13 


sec 


5HHz 2-100 


1 aln. 


13 


aec 


7.37MHz Z-100 




49 


aec 


Sanyo (Sanyo Baalc) 


4 aln. 


37 


aec 


Sanyo (GW-Baalc) 


1 aln. 


40 


aec 



I converted the baalc prograa to baelc09: 
PROCEDURE bnchbaalc 
PRINT DATES 
FOR x~l TO 10000 

IF SQRT(x) - lNT(SQRT(x)) THEN 
PRINT SQRT(x), 

END IF 
NEXT x 
PRINT DATES 
END 

It ran in 1 aln. 26 aeconda. Coapare that to an 
IBM-PC! Froa the C benchmarks lt'a clear that It lan't 
the raw power of the 6409 that aakea the Baalc09 
benchmark faater than a PC. It auat be Baalc09 that la 
ao faat. 

Have you noticed that nobody sella copy protected 
aoftware for 0S-9. Every tlae 1 read Pournelle'e column 
In Byte it aakea ae feel good about our aoftware 
vendors. 
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INTRODUCTION 

The C language, like many other algorlthalc 
allows the programmer greet lstltude in the 
snd orgsnlzstlon of expressions, ststeaents, 
snd progrsas. In contrsst to some esrly ve 
FORTRAN snd BASIC, C a 1 Iowa multiple atat 
line, doea not require every statement to be 
aupporta a uaeful (although Halted) block 
a 1 Iowa aeanlngful variable names, lapleaenta 
snd coapound ststeaents, snd csn be gene 
supportive of good programming prsctlces. 



lsngusges, 
formatting 
functlona, 
ralona of 
eaents pec 
lsbelled, 
structure, 
structured 
rslly very 



Unfortunately, the very freedoa which sllowa ths user so 
few restrictions slso may lead to very bad programming 
practices, which detract froa the uaefulnaaa of the 
prograaa. Thla altuatlon la alallar to that of a 
featureless geogrsphlc plsin, which becomes mors useful 
snd less dangeroua to motorized trsfflc sfter it is 
structured by roada, atop algna, traffic llghta, road 
eigne, etc. 

GUIDELINES 

In order to enhance the readability, reliability, 
uaablllty, portability, and malntsinablilty of C 



programs, certain guidelines are preeented hare. Theae 
guidelines sre suggestive, rsther then restrictive, snd 
sre provided to etlaulste resders to develop progrsaalng 
guidelines of their own. These personsl guidelines asy 
become so nstursl thst ths progrsamer will develop s 
style of writing C prograaa which will be automatic and 
effortleaa. Many programmers who hsve developed such 
personsl styles will edit others's progrsas into their 
own style, or write progrsas to automatically do ao. 
Prograaa are alao available for UNIX and BDS veralona of 
C which provide auch stylistic services, slthough aany 
uaera further modify auch programs to suit their styles. 

The guidelines presented here rsnge froa detslled 
suggestions for the foraattlng of commenta, ststements, 
snd expressions to genersl suggestions for the 
structuring of progrsas. 

PREPROCESSOR 

Progrsa snd aachlne conatanta, aa well aa implementation 
dependent declaratlone, should never be atated directly, 
but ahould be atated Indirectly thru "Ideflne" 
atatementa. Thla not only enhancea the ae If -documenting 
aapecta of the C program, but aide in prograa 
portability and eaeea maintenance difficulties. 

Flelda of "fdeflnea" and "llncludea" ahould be aligned. 
The defined Identifier ahould be coapoaed of all 
capital lettara and digits. 
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For example, use 

Ideflne DKFl 134 

Ideflne MAXDKFN 3 
and not 

Ideflne DEFl 1)4 

Ideflne MAXDEFN 3 

Conditional compilation, using "llfdef" and "lendJf", 
should be used co control all special debugging and 
lnscrusjencadon statements and should be used In 
coordination with "Ideflne", "llnclude", and "typedef" 
to control any code which may vary among veralons of C 
cos.pl tern. When converting programs to any of the 
versions of C which do not support "llfdef", the 
"llfdef" and "lendlf" direct Ivea may be commented out to 
Include the code between thea or the entire group nay be 
commented out (being careful of nested consents) to 
suppress the code between thea. 

If s C program Is coaposed of aultlple modulee which are 
separately compiled, place the global and external 
declarations and "ldeflne"e Into a common "llncbide" 
tile, end precede esch declaration with the 
paeudo-declsrat Ion "extern". Then, in the module which 
contains the "aaln" function, provide the following 
"Ideflne" preceding the Inclusion of the global 
declarations: 

Ideflne exC 

and In esch of the other modules, provide the following 
"Ideflne" preceding the Inclusion of the globsl 
declarations: 



The order of declarations In a prograa or separately 
compiled program module la normally defined to be the 
local "Ideflne"*, the global "Ideflne"*, the declarative 
"llnclude"s, the "main" function, snd other functlone, 
usually In some logical order. In large programs, 
functlona may be placed Into alphabetical order, for 
lack of a better scheme, to ssslst In locating them. 



COMMENTS 



sient block should exist at the 
program or "llnclude"d program set. 



A fairly large e 

beginning of each 

major function, and function subjection. This block 

should clarify such points as why the functions or 

declarations have been grouped together and any other 

Information common to the functions or declsralona. 

it la helpful to develop a template which may be copied 
Into place, as required, to standardise the major 
comment format, and thus to prompt the programmer to 
enter the information. The first lines of the comment 
should contain the name of the module and a quick 
deacrlptlon. Thla should be followed by additional 
Information including the patameters of the routines, 
sny options that the user may specify, global variables 
ueed and modified, other function* called, date and 
purpose of each revlalon, ate. Comment a defining the 
parameters, return codes, and side effects should be 
stated ae required. Comment psrameters and globals ae 
being for input only, output only, or modified within 
the module. Blank llnea should separate major points In 
the comments. 



Ideflne ext 



extern 



Parametric "ldellne"a should be minimized or avoided If 
any of the potential C compilers on which the prograa Is 
to be run do not support parametric n ldeflne"8. Many 
fewer Implementat lona of C support parametric "ldeflne"s 
than support simple "ldeflne"s. Almost no Small C 
Implementat lona support the parametric form. 



DECURAT10MS 

Clobal variables may begin with an upper case letter snd 
otherwise be composed of lower esse letters and digits. 
tx>cal variables and function names should be composed 
of lower esse letters and dlglta. Since aome versions 
of C do not distinguish between upper and lower case In 
variables, function names, and lebeie, data namee 
differing only In the caae of their constituent letters 
ehould always be avoided. Also, since many versions of 
C allow only letters snd digits In Identifiers, the use 
of special characters, such ss underlines, should be 
svoided, ss reducing portability. Alao, alnce aome 
versions of C place limitation* on the length of the 
number of algnlf leant charactera in an Identifier 
(ueually 6, 8, or 31 If a limitation la Impoaed), It la 
advantageous co svoid long names which vary only near 
the end. 

Clarity ahould override capitalisation rules, aa long aa 
amblguoue altuetlone aa Juet deacrlbed are not created; 
thue "PayDate" la preferable to "Paydate" for the name 
of s globsl variable, and either name Is prefersble to 
"P" or "<)wert". However, single letter variable names 
are acceptable for loop control and temporary 
computation purpoaea . 

When the storage structure or type of s variable is 
laportsnt, always atate it explicitly. For example, 
specify "suto" If the addraea of a local variable la to 
be found ualog the "4" operator (ao that another 
programmer will not chsnge Its declerstion to 
"rsgleter"). Also declsre external typed functlone 
explicitly ao that unwanted type converelon to type 
"lnt" (or lack thereof) doea not occur. 



Block commenta, aa any other multi-line commenta, ahould 
have the Initial "/*" and final "*/" on separate lines 
from the text of the comment. Optionally, a common 
Identification, such aa two asterisks leading each line 
or forming a box surrounding the comment, may be 
consistently used to illuminate the block. Block 
comments explaining program functlona, major functions, 
or "llnclude"d code should be left-justified. Other 
comments will generally appear at the e.ime Indentation 
level aa the code they are explaining. 

Other comments should be used liberally, snd should 
explain, not mirror, the code being described. Very 
short comments may appear on the aame line with the 
code, but moat commenta ahould appear on their own 
llnea. 

A blank line (or a null comment) should be used to 
eepsrate the declaratione and the etatementa on a 
function or block. Blank llnea ahould alao be ueed 
freely to separate minor eubeectlona of code. 

Remember » when you sre commenting s program you are 
writing, thet you may be reading your own comments alx 
months after you have put the program ealde. By then, 
you will be almost unfsmlllsr with the program and will 
be reading them aa If you had not written It. So write 
the comments as you would like them to be written by 
someone else for you. 

An example of a good block comment format, ae used by 
the INGRES project st the University of California at 
Berkley, appears st the end of this diacuaalon, with a 
aample program. 



SYNTAX 

It la eeay to write totally Incomprehensible code In C, 
but that is not usually the gosl of most C programmers. 
it la not usually more difficult to write clear arid 
correct code, arid the code le much more uaeful if It Is 
sssler to debug completely, works reliably, and la 
eaaler to maintain. Almost no useful programs are never 
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audi fled during their normal lifetimes, and, In many 
cases, more effort la placed Into the maintenance of a 
program than was expended during Its original definition 
and programming. 

The structured constructs in C, such as "for 11 , "while", 
"do", etc., should be preferentially ueed In many 
contexts In which "If (expr) goto label" would have been 
used in HASLC or FORTRAN. Programs which over-use the 
"goto" statement are sometimes called "bowls of 
spaghetti" because of the tangled control logic flows. 
Such programs are often exceedingly difficult to debug 
and maintain, and are often easier to rewrite into more 
structured code than they are to check out or modify. 
The "goto" statement is much maligned, but, like most 
other statements, can be used to great advantage In some 
contexts or badly abused In others. 

Semicolons should be followed by spaces. Comma a aay or 
may not be followed by spaces. Binary operators may be 
surrounded on both aides by spaces. Unary operators 
should be In direct contact with their arguments, except 
for "slzeof", which should be separated by a space from 
Its argument. In many cases, fully parenthesizing 
expreealonB Is advlaable, especially since various 
versions of C assign different helrarchlal precedence to 
the binary operators « 

Implicit type conversions should be understood and 
carefully controlled. When subtle type conversions are 
required, explicit type conversions should be coded. 
The next version of the C compiler on the same machine 
or s different version on another machine may have a 
different Interpretation of the type conversion than 
that provided by the original C compiler, creating 
problems which may be very difficult to locate and 
correct. 



stmtn; 



else 



stmtl; 



stmtn; 

) 
but not 

If (expr) 

stmt; 
or 

If (expr) stmtl; 

else stmt 2; 
or 

If (expr) stmtl; 

else 

stmt2; 
or 

if Cexpr) {atmtl; 



stmtn;} ; 



Braces should usually be placed on separate Line*. 
However, the closing brace ending a "do" statement 
should usually be placed on the same line as the 
"while", and braces Involved with irxt t l.illzera and 
"struct" are usually placed on the same line with their 
arguments. Braces may start at the aame Indentation 
level aa the statement with which they are grouped or at 
one higher Indentation level, and statenenta inalde the 
braces should be placed at one higher level, Hatching 
braces should always be placed at the aame Indentation 
level. This will make programs easier to read, debug, 
and maintain, because the acope of compound statementa 
and blocks will be more obvlou*. 



Two statements should not usually be placed onto the 
same line. The exceptions are statements such a* "If" 
and a single, short atatement such as "goto label" and 
"for" or "while" with a single, short atatement such an 
"1-M-", or null atatementa, In any case. If statements 
are actually compound, they should be placed on 
aeparate llnea and Indented, usually four spaces. The 
matching "else" for an "If" statement should be placed 
at the same indentation level as the original "If" If 
the entire statement la not placed on the same line. 
Contlguoua, mutually exclualve "if" statements, should 
be separated with "else" clauses. 



For example, use 

while (expr) 

\ 

stmtl; 



I 



atmtn; 



while (expr) 

{ 

stmtl; 



For example, uae 
if (expr) 
stmt; 
or 

If (expr) stmt; 
or 

if (expr) 
I 

atmtl; 



atmtn; 



if (expr) stmtl; else stmt2; 

If (expr) 

atmtl; 
elae 

stmt 2; 



if (expr) 

< 



stmtl; 



do 



atmtn; 



I 



stmtl ; 
: 
s 

stmtn; 
} while (expr); 
but not 

while (expr) 

{ 
stmtl; 



stmtn; 



while (expr) 

t 
tmtl; 



tmtn; 
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while (expr) { 
atatl; 



default: 
8tat3; 
break; 



statn; 



do { 



statl; 



statn; 
! while (expr); 



There should always be a apace before or after a C 
keyword, auch as "do" , "else", "for" r "If", "while", 
etc., but never between a function and the parenthesis 
preceding ita arguments. 



For example, uae 

if (expr) 
func(O); 
or 

if (expr) func(O); 
but not 

if(expr) 

func (0); 
or 

if (expr) func (0); 



Every case of a "awitch" atateaent (Including "default") 
nay ba preceded by a blank line. The keyword "caae" or 
"default" ahould have the aame indentation as that of 
the "switch" atateaent plus t*o spaces. It should tx* 
followed by s apace and the caae constant « Multiple 
case labels on a a Ingle block a single block of code 
should be on the asae seperate lines, but they should 
not be separated by blank llnea. The "caae" atateaenta 
ahould be Hated in increasing order of the constant, 
and the "default" atateaent should appear laat in the 
"awitch" atateaent. 

The "awitch" atateaent should generally be used in place 
of auch chained "if" atateaenta auch sa onea in which 
all (or alaoat all) expreaalona Involve equality of the 
aaae sub-expressions with various conatanta. 



For example, rather than 
if (exprL) statl; 
else 

if (expr2) atat2; 
alae 
if (expr3) atmt3; 



elae 

atatn; 
atteapt to uae 

switch (expr) 



( 



caae cl: 

atatl; 

break; 
caae c2: 

at«t2; 

break; 
caae c3: 
* atat3; 

break; 
I 



whenever the situation allows. 

The lapleaentatlon of "regiater" variables ia very 
inconsistent among veralona of C. For portability 
reasons, variables should not be declared directly, but 
indirectly, thru the use of a "#deflne" auch aa the 
following: 



/define reg regiater 

which aay be changed to the following when 
declarations are unwanted or illegal: 

f define reg 



•register" 



For those C compilers which support "register" 
variables, they ahould be uaed whenever possible and 
convenient. However, there are restrictions on the use 
of "register" variable*. The only typea which may be 
"register 1 ^ are "lnt"a, "char"a, and pointers. There 
aay only be a Halted number (usually three) of register 
variables per function. A register variable haa no 
address, ao, if "r" is a register variable, "&r" la 
illegal. 



CENKRAL 

The "aaln" function should explicitly call "exlt(x)", 
with the default return code being cero. Each typed 
function should expllclty return a value with 
"return(x)", and each untyped function should explicitly 
call "return", with no arguaent. Typed functions should 
never be used in an untyped context, and untyped 
functions should never be used In a typed context. 

The declaration of a variable as local, global, or 
paraaetrlc should be analyzed. Normally, variables uaed 
within the context of one function only should be 
declared local to that function. This practice protects 
the variables from Inadvertent modification by other 
funclona and conserves global variable storage, which i* 
overhead shared among all functlona in a C program. 
However, variables which are shared among aeveral 
functions may be declared global to minimise the 
overhead required to paaa their addreaaea among the 
functions. A case of a variable which aay be coneldered 
for global declaration, even though it aay used only in 
one function, would be a large table or structure which 
would otherwise require reinitialization on each call. 
Although such variables aay be declared as "static", 
many implementations of C do not support "static" 
variables or handle thea internally as if they were 
global variables, and the lack of portability would 
often overwhelm the advantages. 



nta 

s 
the 
the 



The "aaln" function should carefully edit ita arguaent 
and provide appropriate prompts in case its arguaent 
are unacceptable. The level of editing and the 
verboalty and variety of the prompts dependa upon the 
expected level of user of the program. A useful defsult 
standard prompt for a program alwaya expecting arguaenta 
would be a "help" providing all of the arguaent and 
option aeanlnga. 

Whenever possible, functions should be kept relatively 
short. This is for eeversl ressons. One is thst. In 
large prograaa, common code ehould be placed into common 
functions, aaklng the overall program shorter snd easier 
to debug and maintain. Another reason is thst shorter 
functions sre eaaler to write, debug, and maintain than 
longer functions, because they then have fewer 
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requirements on their Inputs, processing, and outputs. 
Still snother Is thst many C compilers slaply cannot 
process very long functions because of lnternsl tsble 
restrictions. 



SUMMARY 

This discussion hss presented s suggested set of 
guidelines for the writing and structuring of C 
progrsma. It Is Intended to help the resder develop s 
personsl style of writing C programs which will enhsnee 
the readability, usability, efficiency, portability, 
reliability, and maintainability of their C prograae. 

The following ekaaple progrsa wss bssed on s longer 
exsaple provided by the INCHES project st the University 
of California st Berkeley. It lllustrstes nany of the C 
style concepts preeented above. 



exesple 

Purpose: 

provide a taaple program 

usage; 

e*eer>l« [(Ufa) argument 

Poa It local Peraeetere: 

argument — this rfsta echoed Co the standard output 

Plata: 

-n — don't put m oewllno at the end. 

-x « don't do anything, 

-b — actio It with a ball character, 

Return Codee: 

~ successful 
ciae — (allure 

Defined Constanta: 

XlQ I — maximum nuabar of nlmult«rtsoua equat lone 

Compilation Plage: 

XTKACC — enable trece Information 

Trace Hag*: 

i — general debug 

6 — reserved for future uae 

Compilation Instruction*: 
i:e -n eiMaplcc 

Hoiee: 

this comment hae nothing to do with the progrsa belowl 

Oetlclenclee: 

It should hondlo peeudo tty'a 



r«g struct magic *f; 

rv* Int t: 

reg Int Ji 

Int ttmebuf|2j; 

suto Int status; 

/• 

** Note that In tin* declaration* of arrfc mnd argv ab*>tf*. «ll 

■• pir^wUrn of any function should be declared, «ven If they 

** era o( type Int (which 1* the default). 

•/ 

r - 4Stulf ; 

/• Initialise random t generator •/ 

tlae(tlaebuf); 

erendUlmebuf |j|>; 

/* seen Scufl structure •/ 

lor (I - 0; I < *aqi; i*+) 

I 
XTKAUi 

Lf <tTI<>, 111) 

prlntf ("sultch on type Xd\n", r->reltype); 

nwltch (r->type) 
I 
caae 0: 
caae 1: 
ceee 2: 

/• end of query •/ 

prlntfCbyeW); 

break; 
case 1: 

/• Initialise */ 

prlnttC'hlW); 

break 1 
default : 

/• 

■* be eure to print plenty of Info on an error; 

•* "eyaerrCbed reltype'*);'" would not have bean 

•* sufficient. However, don't sake syocrr 

** celle too verbooe; they take up space In the 

•• object Module, and U will probably be 

•* necessary to look at the code anyway. 

•/ 

eyeerr(* i «atn: had type Xd" . r->tyve); 



if (I -- 

{ 



» 



5) 

!♦*; 
j - 4; 



) 



/• rselat the tesptatlon to eey *\ elee {** •/ 
elae 

1 — ; 
/• plot the reeulte */ 
do 

I 

i - randO * 017; 
plot(t); 

) while <J»); 
/* wait for child processes to complete *J 
walt(4etatus); 

/• end of run, print termination message and exit •/ 
for (t - 0; I < 2; it*) 

prlntf("bya ">; 
print f<*'\n"); 



'define reg reglotor 

'define oxt extern 

•define X1Q1 5 

•Include "stdlo.h" 

etruct aaglc 
i 

char «neme; 

Int type; 

let valve; 



); 

etruct magic Stuff; 
meln(ergc t argv) 

lot argc; 

cber *ergv( J; 

I 



/• name of ayvJiol •/ 

/• type of symbol, defined In symbol. h V 
/• optional value. Thle la octuelly 
■• the value If It Is type "Integer*', 
•• e pointer to the velue if It le e 
•• string. 



•• PLOT — Plot e gar-Graph 

•0 

■* Doee a simple plot on a terminal — one line's worth, 

as * 

•• Parameters: 

•• n (1H) — number of aatarlaka to plot 

•• 

•• teturne: 

** none 

as 

•• Side Cffect< 



Oef Iclanclea: 

Should allow ace Hog. 



plot(n) 



Int n; 

reg Int I; 

for (1 - n: i— > 0;> print f ("*">; 
prlntf("V); 
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ADA" And The 68000 



BY 

THEODORE F. ELBERT 

THE UNIVERSITY OF WEST FE4RIDA 

PENSACOLA, FLORIDA 32*14 

PART 5 - ADA'S DATA TYPES AKD CONTROL STRUCTURES 

Modern block structured languages, of which the Ada 
language la an exemple, are characterlxed by a feature 
known ae data typing. Each deta object, whether it be a 
acalar or a compoelte object, la of a particular type. 
A type apeclfiea both a permieeible aet of valuea and a 
permieeible aat of operatlona, end the typing featuraa 
of a language relate to the manner in which the language 
enforcea type compatibility during compilation. 

Ada la a strongly typed language. Ada'a data typea 
usually have #n identifier aaaoclated with them, but 
there may be objecta whoae type haa no name, in which 
caae the object la aald to be of an anonymoua data type. 
The atrong typing featurea of the Ada language manlfeet 
themaelvea in the fact that the type of an object la 
checked whenever any operation la applied to the object, 
to enaure that there la type compatibility between the 
object and the operation. Type checking la done 
primarily at compile time, but there are occasions In 
which It may occur at elaboration time. 

The atrong typing in Ada Is much more pronounced 
then in other languages such ss Psscsl because, for 
ressons to be explored lster, nssrly sll objects in s 
properly defined Ads progrsm sre of s user-defined dsts 
type of some kind. Furthermore, two objects thst csn 
sssume the isms values — for example. Integer vslues — csn 
be of distinctly different types snd therefore cennot be 
mixed in eny kind of erlthmetlc operstlon. To the 
experienced programmer encountering the Ade language for 
the flret time thle feeture may aaea rether outregeoue, 
but eome reflection ehould indlcete thet the reliability 
and mod If lability of e progrem le enhenced by etrong 
typing. Typing conflicta often iodlcete eome underlying 
prnblem in the program deelgn, end theee conflicta are 
detected et compile time in en Ade program, languages 
thst are not eo etrongly typed, nr thet provide Implicit 
type converelon when typing conflicta are detected, 
produce leee reliable eoftware fnr thle reeeon. 

While e given Ade program may have many different 
dete typee declared within the program, theee typea all 
fall Into one of four generel classes: 

- aceler dete typee 

- composite dete typee 

- ecceee dete typee 

- prlvete dete typee. 

It la lmportent tn note theee ere cleeeee of dete typee. 
There la no Ada dete type named SCALAR, for example, but 
there mey be declered In en Ade progrem eny number of 
nemed dete typee of thle class, which are generlcally 
celled eceler dete typee. 



Realsr data types, 
three sub-clsssss : 



The cleee of eceler dete typee hss 



• lotsgsr dsts typee 

• reel dete typee 

- enumeration dsts typss. 

As with ths prlmsry clsssee, there ere no dete typss 
nsmed RIAL or (NUMERATION, elthough there is e 
predefined INTEGER type. Rather, e progrem may declere 
nemed typee belonging to one of theee cleeeee. Two 
different typee belonging to the eeme cleee, for 
exemple, to the integer cleee, hsvs the seme propertlss 



but sre distinctly different cleeeee. Two Integer dete 
types hsvs common srlthmetlc operetlons defined, but 
objects of theee typee cennot be mixed In en erlthmetlc 
ope ret ion. 

Integer dete typee heve eeeocleted with them e eet 
of velues which Is s consecutive renge of lntegere. The 
Ade lenguege provides flexibility in the declsrstion of 
sn Integer type In thet e renge of velues must be 
specified, end velues outelde the renge ere not 
permitted to be assigned to objecte of thet type. 

Reel dete typee in eny progremmlng lsngusge 
repreeent only approximations to the reel numbers, since 
e finite number of bite must be ueed to repreeent the 
mentleee of e reel dete type. For exemple. If the 
mantissa— axpreaaed ae e frectlonel pert elweye leee 
then one — is represented by twenty-four bits, then there 
ere only 2 different msntlass vsluee thet objects of 
the type cen sssume. Veluee thet ere not precisely 
equel to one nf theee repreeenteble vsluee ere, by 
neceeelty, epproxlmeted by one of the repreeenteble 
veluee. The result, of couree, le thet the 
repreeentet ion of reel numbere in eny mechine le 
sctuslly discrete; thus, the repreeentetlon belles the 
contlnuoue cherecter of the reel numbers. Most 
progremmlng lenguegee Ignore thle feet , leevlng the 
conelderet ion of the accuracy with which reel numbere 
ere repreeented tn the programmer. The Ade lenguege, 
on the other hend, explicitly recognizee the feet thet 
reel numbere ere repreeented by e renge of dlecrete 
veluee. The lenguege rules ere epeciflc about how rssl 
dsts typee ere repreeented by theee dlecrete veluee, 
which ere celled model numbere. The net reeult le thet 
e programmer may declere reel dete typee with e minimum 
guerenteed error bound in the repreeentetlon of reel 
numbere, e feeture which greetly enhencee the 
portability of Ade eoftwere. Error bounds are defined 
in terms of the model numbere of the type. 

Reel dete typee ere further divided into two 
categories: 

- floating point typee, which provide e 
reletlve repreeentetlon error bound 

- fixed point typee, which provide en 
ebeolute repreeentetlon error bound. 

Floating point types sre enslogous to reel dete types in 
sny other lenguege. They ere repreeented by e frectlonel 
mentleee end en exponent, thue meklng the 
repreeentetlonel error bound e function of the velue. 
Thet is i the model numbere ere very close together (or 
smsll vsluss, but they become ferther epert ee the velue 
lncreeeee. Fixed point typee. on the other hend, ere 
repreeented by Integer multlplee of s basic Increment, 
making the model numbere equally apeced over the entire 
renge of veluee. This flsxlbllity in the repreeentetlon 
of reel numbsrs, together with the explicit recognition of 
errore thet mey be Inherent in the repreeentetlnn, 
provide the Ade programmer with a greet deal nf control 
over the numeric propertlee of hie eolutlon. 

Enumeration date typee in the Ade lenguege ere 
elmoet identical to thoee found in Peecel end other 
modern lenguegee. The progremmer. In effect, decleree 
hie own dete type by explicitly lletlog the veluss thst 
objscts of ths type mey Ulun. Ths vsluee ere elmply 
Identifiers or charecter Utereie, end they ere called 
enumeretlon llterala. The purpoee of enumeretloo date 
typee le to lncreeee the readability — end hence the 
underetendeblllty and modlf lability — nf the eoftwere. In 
lenguegee euch ee FORTRAN, for example, the aettlng of a 
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• witch would be represented by two Integer veluee, while 
lo en Ade progrea en enuaeretlon dete type with the 
veluee ON end OFF cen be declared end ueed to repreeenc 
the ewltch position. 



Composite dete type*. The cleee of coapoelte dete typee 
lo Ade contains two subclasses: 

- erreye 

- recorde. 

There ere no dete typee celled ARRAY or RECORD in en Ade 
prograa, but. rather a -progrea may declare a nemed type 
belonging to one of theee cleaaee. Composite dete typee 
ere thoee types thee coaprlae cob bine t lone of coaponente 
in eoae specific format. Arrsy types snd record typee in 
the Ade lenguege ere very slailsr to chelr counterperts 
in other lenguegee. In en array, ell coaponente auet be 
of the seas date type, while e record may heve coaponente 
of e differing type. In en array, the coaponente ere 
indexed, while in e record they ere neaed. Coaponente of 
recorde end erreye cen be of virtually eny dete type, 
peralttlng coaplex dete etructuree euch ee erreye of 
recorde, recorde with errey coaponente, recorde with 
record coaponente, end eo on. The feeturee of — end 
operetlone oo — coapoelte dete typee in Ade ere auch 
richer than thoee found in virtually eny other lenguege. 

Access dete typee. The ecceee type in Ada is anelogoue 
to the pointer type in other lenguegee euch ee Paecei. 
There le no dete type named ACCESS, but rether e progrea 
aay declere neaed typee belonging to this claee. Ada's 
ecceee typee peralt the progreaaer to eccoaaodete 
situations in which dynaalc atorege allocation — allocation 
aede during execution ee the need is perceived by the 
prograa — la required. Por exeaple, e nuaber of recorde — 
unknown et coaplle tlae — aey be required in en on-line 
eyetea. The uee of ecceee typee will peralt record 
objecte to be creeted — thet la. etorege to be allocated 
by the run-tlae eupport eyetea — ee the need erleee lo 
prograa execution. 

In the exeaple Juet cited, the record objecte 
creeted et run-tlae ere not ecceee type objecte; rether, 
they ere of 4 record type* Objecte of ea ecceee type 
deelgnete other objecte— in tola caee record objecte— 
which ere identified by no other aeene; thet le the 
deelgneted objecte have no asms . Objecte deelgaeted by 
ecceee type objecte cen eleo be deallocated, thue 
releasing the etorege for further allocation by the run- 
tlae eupport eyetea. In feet, euch deallocation la often 
eutoaetlcelly effected under certain specified condltlone 
in e proceee known ee gerbege collection. 

Private dete typee. Ade'e prlvete dete typee aay 
aeea etrenge to experienced programmers encountering the 
Ade lenguege for the flret tlae. In the Ade Lenguege, e 
type deflnee e eet of value e end e eet of operetlone for 
the type. The ueuel concept of e dete type lapllee thet 
the ueer le cognlrent of the etructure of the type end 
the eet of veluee thet objecte of the type may eeaume. 
Private dete typee provide the progreaaer the eblllty to 
aeke ueeleee to the ueer of e type eny information 
regerdlng the etructure end veluee of tbe type, end to 
Halt operetlone on objecte of the type to en explicit 
eet of operetlone. Thle eblllty aey not, et flret 
conelderetlon, eeea to be of eny particular adventege. 
However, the ability to declere prlvete dete typee has one 
very laportent feeture of peralttlng e progreaaer to 
produce ebetrect dete typee of hie own deelgn. An 
example aay help clarify thla ateteaent. 

In Peecel there le e dete type neaed SET. In 
certain eppUcetlone, this dete type le very useful elnce 
objecte of type SET heve aoet of the cherecterletlce of 
aetheaetlcel eete. Peecel objecte of type SET heve 
defined for thea certeln operetlone, eucb ee union. 
Intersection, snd othere thet relets to manipulation of 
aetheaetlcel eete. The ueer le aware of theee 
peraleelble operetlone on objecte of type SET* but Just 
how the objecte ere lapleaented by the lenguege la 



hidden. It le not thet the lenguege lapleaenter did not 
went the ueer to know how objects of type SKT ere 
lapleaented — thle information could be obteined by 
exealnlng the coaplle r — it le Juet that euch knowledge le 
ueeleee to the ueer beceuee it could in no wey effect 
how e progrea involving the uee of the SET type le 
written. Type SET le en ebetrect dete type — objecte of 
the type cen be declered end aenlpuleted uelng e 
epeclfled eet of operetlone, but the lapleaentetlon 
detelle ere hidden froa the ueer. Ade'e prlvete dete 
typee heve precisely this feeture, end therefore they 
eerve to provide the progreaaer with the eblllty to 
creete ebatrect dete typee with feeturee specifically 
tailored to hie pertlculer eppllcetlon. For example, en 
ebitrect dete type equlvelent In every wey to Pee cere SET 
type cen be creeted in en Ade progrea by uee ot the 
prlvete dete type. 

While decleretlona ere the aeene by which en Ade 
progrea creetee typee end objecte. eteteaente are the 
aeene by which dete le aenlpuleted. While decleretlona 
are "eleboreted", eteteaente ere "executed". Keny of the 
Ade eteteaente ere conventlonel in neture — thet le, they 
ere slaller to eteteaente found in other aodern 
lengueges. Specifically, Ada has the following 
eteteaente; 

- eeelgnaent if 

- exit case 

- goto loop. 



The control etructuree in Ade ere elmlier to those found 
in sny aodern lenguege. The if end caae eteteaente 
conetltute the conditional control eteteaente. The caae 
ateteaent hee e slightly different eyntex then thet found 
in lenguegee euch ee Peecel, but the bealc function la 
the eeae. Ade'e if eteteaent hee the ueuel if tbcajdma 
foraet, with neeted if'e included by the reeecved word 
eisif. 

The iterative etructure in Ade le the loop, which le 
bounded by the reeerved worde loop end end loop. 
Controlled looping le provided by either e valla or e for 
condition. An Ade loop cen be exited froa eny location 
by execution of en malt eteteaent. Two other eteteaente, 



- procedure cell 



- return 



ere ueed In referencing eubprogreae. The return 
eteteaent effecte e return froa e eubprogrea froa e point 
other then the end eteteaent of the eubprogrea body. 

The remaining eteteaente relete to the aore 
edvenced concepts of the Ade lenguege. They ere: 



- deley 



- relee 



— producee e time deley 
in the execution of en Ade teek. 
— ueed to relee e ueer-deflned 
exception. 

- entry cell — ueed by en Ade teek to requeet 

rendexvoue with another taek. 

- eccept — ueejl by en Ade teek to eccept en 

entry cell. 

- eelect — provldee flealblllty in the uee 

of entry cell eteteaente end eccept 
eteteaente. 

- code — ueed to lneert aschlne code 

mnemonic instructions into sn Ads 
prograa. 

- short — provldee e aeene of terminating 

tasks that do not terminate in a 
normal feehlon. 

- block — provldee for the encepeuletlon of 

Ade eteteaente. Including locel 
decleretlone, anywhere within en Ade 
progrea. 



The Ade lenguege peralte e eequence of eteteaente to 
eppeer enywhere e alnfle ateteaent aey eppeer, a feeture 
thet enhencee the malntelneblllty of Ade code beceuee It 
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permlte the Insertion of etetemente without the Insertion 
of the beglo end end delimiters required In other 
lenguegee euch ss Peecsl. Ineteed, the Ads lsngusgs usss 
the begie end end delimiters to deelgnete sequences of 
ststemente thet msy hsvs dsclsrstive regions—regions In 
which object end type declaration* say sppesr — sssocletsd 
with then. The sealeolon delimiter la uaed ee s 
statement terminator; thue, eveiy etetement must end with 
a semicolon. 



The Ada language doee not contain a large nuabar of 
different etateaenta. Thoae etataaente provided by the 
language era aoaewhat flexible, and they tend to support 
modern prograa design aethodologlee. 

NEXT: Ade'e Subprogram. 
Ada le a tredemark of the U.S. Oepertaent of Defenee. 



Basic OS-9 



ton Volgte 

2024 Baldwin Ct. 

Clendale Kts., IL 60137 



OS-9 SIMCASBOtD 



Thle sonth la a eaorgaebord. when I wee younger, ay 
perente and I would go to reeteurente celled 
"Saorgeeborde". Theee eetebllehmenta would epeclellie 
In eervlng buffete with e lerge variety of food. Ineteed 
of eetlng Just one thing for dinner, It wee aore fun to 
try s little of everything. This month, lnsteed of 
■ ervlng e big aeel on eoae OS-9 Better, I thought X 
would eerve e bunch of eaaller oaee. Actually theee ere 
e few thlnge I have obeerved or coae acroee In the peet 
yeer of writing thle column. They srsn't lsrge eeough to 
develop en entire column eround them end yet I think 
they ere worth eervlng to my gueete. So here le en "OS* 
9 Smorgeebord"! 

A UTTLB MOIX NEM01T 

One of the big concerne for people running Level I, 
OS-9 is memory (or lack thereof). Ueuelly the leek of 
memory doeen't become epperent until you run something 
big, like Baelc09. You enter Beelc09 by typing: 

0S9: I4SI009 
Normally It glvee you ebout 4k of memory to etert, but 
you cen requeet more. If you enter: 

B:NBM 20900 

20991 
you get elmoet 21ft of memory for the Beelc09 workspace. 
The NEM command aeke for memory end the amount given la 
returned. It le allocated In the neereet page Increment 
or 256 bytee. Thet la why aeklng for 20900 givei you 
20991. You cen eek for mora but this Is ths end of the 
line on my eye tern. Let'a etert over. Thle time we cen 
loed Beelc09 with: 

0S9:IX 1ASI009 
Now we cen go for maximum memory, eo: 

B:MDf 21700 

21759 
Thle time we have 3/4K more memory. Thet'e 3 pagae more 
then before. Thla might not saem like much, but for e 
lerge program that extre bit might be very helpful. 

So where did the extre 3 pagae of memory come from? 
When we executed 8eelc09 the flret time, the Shell went 
Into e "wait" atete after It eterted the proceee, 
Beslc09, Id the eecond exemple. The "BX" ceueed the 
ehell to tsrsdnete Itself efter Beelc09 stsrted running. 



Thle left ue with more evelleble memory. There le e 
price to pey for thle extre memory. When you leeve 
Beslc09, there will be no welting •belli So youll come 
beck to e new ehell. The execution end working 
dlrectorlee will have to be redefined egeln. 

Thle worke not Juet for Beelc09, but for other 
proceeeee, si well. It Is bsst to uss It Judiciously. 
Most things don't need the extre memory. But for 
eome thing thet neede more memory, thle might help out. 

VHEU DID THE MEMOtT 007 

Thla hae happened to me more then once end It cen 
be perplexing If you don't realize whet has happened. 
Ueuelly I like to heve my moet ueed commande In memory 
when working with OS-9. Thle cute down on the time 
welting for the commend to be loeded when you uee it. 
One dey I eterted Beslc09 snd thsn realized thet I 
hedn't preloeded enythlng. I knew I would need the OIR 
command, ao I entered: 

B:*LOAD DH 
The "$" ceueee Beelc09 to peee the commande thet follow 
to the OS-9 Shell for proceealng. LOAD put DIR Into 
memory where It would be hendler to uee. letter 1 left 
Beelc09 to do other thlnge. I loeded the other 
commande I uee often Into memory with a: 

0S9:LQAD 08L LIST 
Still leter I wented to go beck to Beelc09, eo I typed: 

0S9:BASIC09 

Error #207 
Now error #207 meene Out of Memory. I knew DIR, OIL end 
LIST were loeded in memory, but I hed ueed them before 
with Beeic09 end no trouble. Where did ell the memory 
got 

I wee e victim of memory fregmentetlon. Thle occure 
when you plunk e module in memory end leeve open memory 
around It. I hed loeded Bealc09 before end then Dlr. 
When I removed Beelc09 later end edded e few modulea, my 
memory beceme split Into two lerge chunke with Dlr 
eeperetlng them. I ren Mfrse end it reported: 

Addreee pa gas 



B00-54FF 74 

5800-AFFF 88 

8400-B4FP 1 

Total pages free 



163 



Craphlce Memory at: $ 220 
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Oir waa located at $5500 to $57FF. tt divided aeaory 
Into large chunka, but neither waa large enough to hold 
Baaic09. 

Memory fragmentation occura In Level I systems. 
Level U people are spared thla problem, alnce their 
aeaory la dynaalcally aanaged. If you are a level I uaer 
and find yourself In thla predicament, you'll have to 
reaove aoae thing froa aeaory. To remedy ay aolutlon, I 
removed everything I had preloaded with 

0S9;ualiok del dir Uat 
The UNLINK command removed theae aodulea from memory. 
Then I etarted over from scratch. 



in /DO/CMDS. There are 7 programa used for creating an 
executable module from the C aource code, and moat of 
thea are long. For exaaple, C.PASS1 la 125 aectora long 
and CASH la 62 aectore. Toaa In the other S and you're 
looking at 488 aectora. And that's not counting regular 
OS-9 coaaanda like DIR, LIST, and COPY. Ky C language 
disk for drive /DO haa 610 aectora in uae. The other 
drlvea disk haa four dlrectorlea — DBFS, LIB, SOURCES 
and SYS. The fllea in theae aectora are used In 
compiling the C program* They occupy 353 aectora on the 



CttOM 

One of cryptic parta of OS-9 la lta error aeaaagea. 
Enter something disagreeable to the ayatea and you'll 
get an error code number. You can uae the coaaand 
PRINTERR and every time an error occura you'll receive 
the engllah trenalatlon of what went wrong. There are a 
few drawbacka to Prlnterr. First, It uaea memory 
(memory, memory, alwaya memory!) that you may not want to 
spare. Alao, it doea take ttae for It to look up the 
error aesaage In /00/SYS/erraag. 1 underatand people 
with Level II do not have "PRINTERR". (bjltofa Note: 
Something about Nlcroware "doea not feci" thst ALL Users 
on the System would wsnt to see the errors printed 
out??? Personally, I would rsther hsve the choice; or 
better still, it should be controllsble just like "pause" 
or "echo" with the taode coaaand. Even so, whst is the 
difference between s report of 

Irror 1216 
end 

Error 1216 - Path Nam* not found 
except that the aecond one aure provides a lot aore 
information. Kach report takea up a line on the 
Terminal, and memory on a Level II Syatem la not the 
problem it la with Level I. "Where's the Beef??" If it 
wera not for the handy little "OS-9/6S09 KEFIUKCE CAJUT 
- available from Mlcroware, with a LOT of good 
loformatlon on it Including the Error Number 
descriptions, a aummary of the OS-9 Syatea Calla, Pile 
Syatao I/O Patha and File Acceaa Codea, Neaory Module 
Header Poraat summery, and a 'quick reference' guide to 
the normal Coaaanda... — • rln) 

An alternative to paging through your OS-9 user 
asnusl Is to list to the printer /DO/SYS/errmsg which Is 
the file thst contslns the error aesssges. Or you csn 
photo copy the pages froa your OS-9 aanual that have a 
Hating of the error aeaaagea. Take the Hat and poet 
it in a proalnent place near your computer. Next tlae 
you get an Error #216 or a Error #207, you can look at 
your Hat. 



IADIO SHACK C LANGUAGE 

I got a letter laat aonth froa a reader who had a 
Color Computer, Printer, and one Oiak Drive. He had 
bought OS-9 and the C language coapller froa Radio 
Shack. file wondered what elae he needed to run C 
language. Veil, the anawar la aaotbar Disk Drive. The 
claim la that all you need to run OS-9 la a 64K Color 
Coaputar and a dlak drive. Thla la true, but if you 
want to uee the C language coapller, or do auch of 
anything alae, you had batter plan on another drive for 
your ayatea (end RS aura needa to eupport Double-Sided 
Drivee for 0S-9)i 

The C language that Radio Shacks sella le strslght 
froa Mlcroware. It is s very formidable coapilsr. You 
■oat uee two dlak drlvea for compiling C programs. 
Drive 1 holda the dlak with ell the C coapller coaaanda 
dlak. On a 630 aector disk, thla leavee 277 aectora for 
programs. That la why you need 2 dlak drivee to run C. 



CAM YOU CSIf A SECRET? 

Privacy of an OS-9 file can be very important. 
Perhapa you went it ao only certain people can read your 
fllea. Maybe you want to leave meaaagea on your ayatem 
ao only a particular uaer can read It. 0S-9 leta you 
assign sttrlbutes to your files. You csn make thea a 
"read" file or a "public read". Btit how do you make then 
ao only certain people can read them? The aolutlon la 
to encode your programs snd give the keys to unlock the 
code to whoever you wsnt to reed It. 

This aonths program Is s C lsnguage program called 
CrTpt. It raada froa the etandard input path and vritea 
to the atandard output path. It expects one parameter, 
a keyword that la uaed to encode and decode the file. 
What makes the program work la the uae of the "exclusive 
or", usually sbbrevlsted 1 01. XORlng two 0'e or two l's 
yields s 0, XORlng s 1 snd (or snd 1) is s 1. A 
byte csn be XORed with snother byte to give s new byte. 
If the new byte Is XORed with one of the origlnsl bytes 
the reault la the other byte. For exsaple, 

$A6 X0R $57 - $P1 
Now, we can X0R the $P1 with either $A6 or $57. Let's 
try $57. 

$P1 XOR $57 - $A6 
The result is $A6. If we hsd used the $A6, the result 
would hsve been $57. So, whst good is sll this? By 
XORlng s file with ths bytes in the keyword, we creste s 
new file of whst would appear to be "gsrbsge". To 
return the file to Its origlnsl form, we XOR it once more 
with the keyword. The Line thst reeds: 

c*-s[ count**] 
is XORlng s chsrscter, c, with s byte in the keyword 
pointed st by &* 

This C progrsm is not too hard to understand. Argc 
ahould be equal to 2. ArgvfO] pointa to the coaaand, 
crypt, and argv[lj pointa to tha key. The aaln body of 
the prograa la aade of an if., .elae atructure. at argc 
IS not equal to 2, It prlnte a line that tells how to 
use crypt. Otherwise it Inputs s character at e tlae 
and XOR'a it with a character in the key. The pointer 
count la incremented and then it outputs the character. 
When the pointer count reachea the end of the keyword, 
pointing at * 0*, the key la uaed over again. To uae it, 
enter like: 

crypt aacretword Cayflla >o*vfll* 
The word "eecretword" becomee the key for the coding the 
file "myflle". "Nevfile" will probably be unllatable and 
definitely makes no aenae to anyone who doesn't know the 
key. You don't have to make fllea. Por example, to 
read "newfile", you can try: 

crypt eecratword <aavflle >/p 
Thla time crypt unacramblea "newfile" and ilata it to the 
printer. Remember when ualng crypt, the key uaed to 
encode a file la alao uaed to decode. So, uae aoaethlng 
you'll reaeabert 

Veil that coocludea thla aonth of OS-9 aaorgasbord. 
If you have tidbits of Information to ehare with the 
reedera of thla Column or wsnt to psss on soae helpful 
hint, drop ae a note (include a SASB If you expect a 
reply). Til paaa on tha Information, I alao will be 
aure to mention who aent It. 

Bye for nowt 
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Revisiting tbe Time Program 

There'a a minor problem with the time program from thle 
column two months ago. In the subroutine eaecQ, a line 
was omitted. Thla should be obvious to those typing the 
program in, since there is s gsp of several blank lines 
where the line should be. The missing line, with the two 
lines sround It, is 



if (child -- -1) 

«t t(_e r nig(e r mo , 
•York to 1m' felled - 

do ( 



O); 



More Kac Stuff 

I've been on vacation for the past several weeks, so there 
aren't any new programa this month. I did teke my 
Macintosh with me when 1 went to visit my fsnUy in St. 
Louis, but somehow I never managed to do anything other 
thsn plsy s Hsc version of Asteroids, Seems thst 
vacation, travel, snd programming just couldn't mesh this 
time. 

Still, I'm not entirely without topics. After all, I did 
Just receive the Inside Macintosh technlcsl msnusl s 
short time ago, snd lsst month's Introduction hss bsrely 
scratched the surfsce. This month, I'll continue, going s 
little deeper into some aspects of programing on the 
Hsc. 



Traps Cam 



t time a Be Daeiul 



The Macintosh programming environment is bssed on s 
number of built-in routines. Host of these sre found in 
the 64K of R0H, though some sre sctuslly in RAM, either 
becsuse the ROM version hss some bugs, or there Isn't 
room in the ROM. 

These routlnss sre much like the 0S~9 system calls, in 
thst they use Instructions which csuse s 68000 exception 
through s vector in low memory. They do not use one of 
the TRAP instructions, though. Instead, esch routine 
cell is s single word-lsngth Instruction stsrtlng with $A. 
The 68000 has no legal instructions stsrtlng with $A, snd 
executing such sn instruction csuses sn exception, 
through the A-llne exception vector. 



The exception enters the trsp dispatcher, which uses the 
remslnder of the bits in the instruction to determine 
which routine is being celled. Up to 512 routines sre 
possible, with the bottom 9 bite of the trsp Instruction 
giving the routine number. This number Is used ss sn 
index into s trsp dispatch tsble, which holds the address 
of the entry point to the routine, either in R0H or RAM. 
fiy chsnglng the entry within the trsp dlspstch table. It 
Is possible to replace s routine in ROM with s new one in 
RAM. 

Most trsp routines require arguments, so some sort of 
calling convention from assembly language Is required. 
Actually, there sre two separate conventions. Some 
routines sre stsck-bssed, while others sre register- 
bssed. Generelly, high level (Toolbox) routines sre 
stsck-bssed snd low level (Operating System) routines 
reglster-bssed. 

Stsck-bssed routines sre mesnt to be celled from high 
level language (HLL) programs. The format of psrsaeters 
on the stsck Is thst used by Apple's version of Pascal on 
the Llee, where the Mac code waa in large part developed. 
To call a stsck-bssed routine, the following steps must 
be followed from sssembly language. First, spsce is 
reserved on the stsck for the else of the result, but 
only If one is to be returned. Next, the sctusl 
parameters sre pushed onto the stsck In forwsrd order, 
ss seen in the Pascal definition for the routine. 
Flnslly, the routine is celled using the proper $A 
Instruction. On return, the return sddress snd 
psrsmetere will neve been relessed from the stsck, with 
the optlonel reeult et the top of the stsck. 

Thla stsck format, bssed on Paecet conventlone, le 
Incompatible with normel C conventlone. In C f e return 
velue le peeeed through e register, usually DO or AQ, snd 
the routine psrsaeters sre puehed onto the stsck in 
reverse order. The wey In which various C compilers deel 
with this difference effecte the else end epeed of the 
code genereted. The simplest fix, from the compiler 
writer's viewpoint, le simply to hsve the C etetement 
sctuslly csll 4 short sssembly lenguege routine which 
cooverte the C eteck forest to the Peecel formet. A 
nicer method, used in Aztec C end others, is to mark 
certain functions ss being celled with the Peecel 
conventions lneteed of C conventlone, end generete the 
proper code In response. This generetes the tightest 
possible code, but Isn't strictly legitimate C 
eyntsctlcslly. 

Reglster-bssed routlnee ere more like normel eeeembly 
lenguege functions. Arguments sre peeeed to the routine 
via registers, usually DO snd/or A0. In case of multiple 
parameters, AO generelly polnte to e peremeter block in 
memory, rether then piecing ell of the ergumente In 
regie tere. The register-baaed routlnee cennot be celled 
directly from HLL programs, since theee almost always use 
the eteck for ergument passing. To csll theee from C or 
Peecel, then, e amall "glue 11 routine moves the ergumente 
from the eteck to the regletere before calling the trep 
routine. Secauaa of theee "glue" routlnee, not all 
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register-bated routines ere available with many compilers. 



How to Organise Your Memory 

At any impatient Hac owner knows, It Is taking s long 
tlaie for the forecast flood of aoftware to sake lta 
appearance. One conon excuse la the difficulty In 
writing Hac progress, if you resd these excuses, one 
sres in particular geta biased most often. This Is the 
Macintosh's Method of* managing RAM memory. 

On most computers, the RAM memory Is trested ss one 
large, contiguous srrsy of bytes, all of which is available 
to the running prograa. Even OS-9, with Its aultl- 
taaklng envlronaent, treeta aeaory this wsy to soae 
extent. The Macintosh haa choaen a different scheme, 
involving a data structure celled s heap, aa well as the 
more noraal etack. 

In a heap, the aeaory array la controlled by the 
operating ayatea, which allocates blocks of aeaocy In 
response to requests froa running progrsas. The 
programs have no control over the addreaaea of the 
allocated blocks. in addition, prograaa may releaae 
blocka which have been prevloualy allocated, returning 
thea to the pool of free blocka within the heap. Such a 
data structure is used by the stsndsrd C functions 
aallocQ and free(). After aany allocations snd 
deallocations, the free aeaory within the hesp aay becoae 
bsdly fragmented, ao the operating ayatea may not be able 
to aatlsfy a requeat for a large block, even though the 
total else of ell free blocks Is sufficient. 

The Macintosh uses the noraal hesp structure, but with 
soae enhancementa to deal with thla fragmentation 
predicament. Koat of the time, when a prograa requests 
a block froa the heap, the block that la returned la nade 
relocatable. If the Hac later discovers thst no free 
block of sufficient site is available for a new requeat, it 
will aove around the prevloualy allocated blocka In an 
attempt to coapact the aeaory, coalescing the free blocks 
to fora one lsrge free apace. 

There are two probleas with this scheae. First, wheo s 
block is siloes ted to s progrsa, the progrsa must be told 
the sddress of the block, if the block is later moved, 
ths sddress will hsve chsnged, snd sny pointer vsrlsblss 
in the progrsa holding this sddress will be left pointing 
to the wrong location. Since there aay be s nuaber of 
these pointers st unknowo locstions in the progrsa, the 
operstlng system csnnot be expected to update thea sll 
when the block moves. 

The act hod the Hac uses to get sround this difficulty is 
quite elegsnt. When s relocatable block of aeaory is 
allocated by the operstlng systea, s single pointer to 
the block, celled the aaatar pointer, is crested. The 
operstlng eyetea then returne a pointer to the master 
pointer to the progrsa thst made the allocation requeet. 
Tble "pointer to a pointer to a block" la known aa a 
uanaUe. All referencea to the new block are aide via 
double indirection through the handle, with the aaeter 
pointer retaining the only copy of the actual address of 
ths block. When the block must leter be moved, only ths 
aaeter pointer neede to be updated. 

There le a eecond problea with relocatable blocke. Soae 
blocke, when ellocated, aay not be allowed to aove. For 
lnetance, while the handle/aaeter pointer allows blocke 
to be relocetsble, the aseter pointer lteelf aay not be 
moved. for epeclal casee euch aa theae, the Hac allows 
soae blocks to be nonrelocstsble. Since euch blocka lesd 
to hesp frsgaentstlon, the Mac will attempt to allocate 
thea at the loweet poeelble poeltlon in the heap, perhepe 
■oviqg relocatable blocks upwsrds in aeaory first. 



There ere asny further refinements to the hesp. First, 
there ere actuslly two hespe. The systea hesp Is 
reserved for the operstlng systea, snd consists of blocks 
used in low level L/0 routlnee or other such things which 
auet stick e round sll of the tiae. The application hesp, 
on the other hsnd, is used to hold sny progrsa which le 
run, as well ss sll the dste blocks used by the progrsa. 
The systea hesp Is kept through progrsa Invocations, 
while the application hesp le wiped ciesn with esch nsw 
progrsa. 

Relocetsble blocks hsve additional complications. 
Sometimes, sfter coapsctlng the heap, there still isn't 
enough aeaory available. The Hsc will then look for 
blocks thst hsve been marked "purgeable", and reclaim the 
apace they uae without waiting for explicit releaae trap 
cells by the allocating prograaa. Furgeable blocka 
generally hold data read froa the dlak (auch ae foote) 
that can be reread if neceeaary at a later tiae. Of 
course, every tiae the prograa expects to uae a purgeable 
block, it auat aake aure that lta data la actually 
present In memory. 

Finally, relocetsble blocks asy be marked ss locked, eo 
they will not be aoved during hesp compaction. Thla 
locked atatua la a flag which can be act or reeet, ao it 
le not the eaae aa a nonrelocstsble block, tt la uaed 
when a block mustn't aova for a ehort tiae only. 

Obviously, with blocks of aeaory flying here snd there 
through the hesp, with vlelons of "hocus oocust now you 
see It, now you don't/' there le s greet desl to go wrong 
in trying to uee the hesp. Unfortunately, It's the only 
gsae in town, snd snybody t tying to develop eoftwsre for 
the Hsc will hsve to thoroughly understsnd the concepts 
Involved • 



Dae the Le sources aval labia to Toa 

1 think I've rooa for one more topic this month. This le 
the concept of resources, soaewhst snslogous to the 
aodule ides found in OS-9. A Hsclntosb resource is s 
piece of code or dste which is capeullzed for easier uae 
by a prograa. 

A raaource haa a type, which identifies the type of data 
within it. For lnetance, all reaourcee which declare the 
format of wlndowa have reeource type WIND, and code which 
defines s desk scceeeory or I/O driver Is of type ORVR. 
Within s resource type, s reeource haa a unique ID nuaber 
used to identify the psrtlculsr reeource. The reeourcee 
ere kept on dlek in reeource files, snd sre reed Into 
aeaory mm blocke on the heep. 

There sre two asln reseone for uelng reeourcee in the 
Hsc. First, there sre certsln objecte wblch ehould be 
available to sll progrsae. For lnetance, the vsrious 
foote, desk scceeeorlee, cursor patterne, and euch do not 
need to be repeated within each prograa. Instead, they 
are collected In one eyetea reeource file, which le 
automatically searched whsn s progrsa requeete eccees to 
s reeource. Second, sbstrsctlng the varloue wlndowe, 
aenue, and plcturea ueed within a elngle prograa into 
Independent modules sssee development snd modification of 
the progrsa, by allowing Just the needed chenges to be 
implemented without worrying sbout the effects on the 
remainder of the prograa. 

The Haclntoah prograaalng sovironaent defines doaens of 
predefined reeource typee, with systea trepe to directly 
hsndle thea. Thle encoursgss use of reeourcee, rsthsr 
thsn trying to perfora their work uelng lower level eyetea 
cells. In sddltton, s progremaer Is free to develop his 
or her own reeource typee, for uee within s single 
progrsm or between related programs. 



W Micro Journal 



September S5 



21 



CoCo User Notes 



by Carl Kami 

30 Warren Ave. 

Araesbtiry, MA 0I9I3 



"C0MPUPHOBLA" 

or. 

Who f a Afraid of the Big, Bad CoCo? 

Okay - t confen. There's no sore enthusiastic 
eupporter of a new thing than one who once hated It. 
That goea for Juat about everything, 1 dareaay: being rich, 
stopping emoklng for real and for good. Jogging, aex 
preference, you naae It. Show ae someone who hatea, 
feara, or deaplaea a thing and I'll ahow you a prlae 
candidate for Divine Revelation that will Change Hi a (or 
Her) Life Forever. 

So, I have to confeaa; in all good faith, 1 know 
exactly how aany folks feel about the proapect of a 
coaputer entering a previously undisturbed llfeatyle. I've 
been there myself. Boy, was it ecaryl Flrat Serloua 
Objection caae out of ay aouth at aga nine or eo: **I Juat 
don't want to ba etuck In a rooa In front of a keyboard 
all day, puahlng buttons?" Then there waa the Creat Grey 
Threat: "The Government will put ua all in coaputara and 
aake ua do everything It wenta ua to do without aeklng 
first!" Last caae the Appeal to Religion: "The Coaputer la 
the Tool of the Devil and all Its users hsve the Nark of 
the Besst! The Besst will reveal ltaelf aa a Huge, evil 
Coaputer!** That one waa the acarleat one of all, becauee 
ay aortal aoul aeeaed to hang in the balance. At the 
tlae, lota of other people around ae were aaylng the saae 
thing, ao it appeared that it all auat be true. 

Odd, though...; aoet of thoaa good and righteous folks 
wera not only afraid of cotiputera, but alao of at leeet 
three of the other four thlnga I first mentioned. There 
were other feara, of courae, but thoae were the blgglaa. 
The aoet coaaon exception aeeaed to he Jogging, aoatly. 
Nearly everybody in that bunch IjOVED to run? (1 wonder If 
that had any symbolic meaning?) 1 think I etarted to drift 
away froa that crowd about the tlae I atarted aaklng 
queatlone like that. They didn't really aeea to mind. I 
think 1 aada thaa uncomfortable. Funny about that - T 
liked thea, and etUl do. 

Tlae passes, things chsnge, end I forgot sll ebout my 
fesre. Don't get ae wrong: they atlll exlated. I juat 
forgot about 'ea ss I fixed TV aete, took and paaaed the 
high-school equivalency exaa, took a little college, opened 
a buelneea, went buet, moved Eaet, and took a Job in a 
nuclear reaearch lnatruaent factory near the ocean. 
About five yeara Into the job, I took lntereat in 
computers again. 

Saema we had thla email problam with our teat recorda. 
The performance data we generated aa we teated the only- 
one-on-che-whoia-planet equipment we built waa hand- 
written in a laboratory logbook. Once the ayatem under 
teat wea ahlppad, the data waa forgotten. Then alx 
monthe to a year would paae while the ayatem waited on the 
loading dock of some resssrch lsb snd the paperwork oozed 
lmpercsptsbly from one department to snother. Then csae 
the dsy to actually lnstsll the contrsptlon - but whst did 
we set sll those dlsls to the lsst time we got the dsrn 
thing to do whst it bsrely did before??? Grab the 
logbooka, pull up a chair, thuab through all that 
acrlbbllng, and aayba in twenty alnutea we would have the 
data again « Maybe not* That got ae to thinking. 

The thought want aoaethlng like thla: "Suppoae wa 
could atore all thla Informatloo In a computer? Then we 
could Juat push a few buttona, turn on a printer, and get 
It all back in a flaaht wouldn't that be nice?* The boss 
sgreed with unsccustoaed vigor on two or three occsslons. 
Finally, I up snd did some reseerch into dstsbsss 



management software lor the company'e DEC PDP-11 "the one 
that nobody elae teemed to be able to uae. 

1 found what t waa looking for, too. 1 don't remember 
the title of the program - only thet It promleed to do 
everything we needed a computer to do. I ahowed the 
reference Hating to my boaa. He shut the office door, 
Jerked a thumb at the only other chair with a look at me 
that would have curdled a bowl of Wheatlea, and leaned 
back in hi a own aeat. "What makea you think I would let 
aomebody like you play with that computer?" he growled. 
"If you think you want to play with computera, go buy your 
own! Now get back to work, and thla converaatlon never 
happened r 

He waa funny thet way. Once he offered me money to go 
to school on - full time college - out of the allegedly 
depleted company treaaury. 1 amelled a rat - he was 
fsmous for setting employees up for big fslls - snd 
declined with thsnks. Thst conversation never heppensd 
either, snd he'll confirm it. Wsnns have aome fun? I know 
thla compulalve aadlat that like a to pley gamea... 

1 took old Pete'a advice that payday. Inatead of a new 
pair of ehoaa 1 had wanted, and a couple of aenaual 
pleaaurea I had planned all week to Indulge ln v I marched 
right from the bank to the Radio Shack and bought a 32K 
Color Computer. I proceeded home across the parking lot 
with ay prize and didn't wait to have dinner before 
plugging It In. 

I got aa far aa connecting the little beastle to the 
TV act, turning aald TV ae t on, and finding CoCo'a power 
awltch. Then it hit ae . In about fifty nanoaeconda, I 
realised that what T waa doing violated ever} 
pronounceaant 1 had ever proaulgated concerning society, 
life, and living with (or agalnat) computera! My brain did 
a long, elow barrel roll. Then it dived wild-eyed for 
cover aa a biasing Technicolor vlalon (with full Dolby 
atereo) of the Devil a-rlalng through the alota on the left 
aide of the aachlne'a caae (and Ms lapa froa the right- 
hend onea) engulfed ay Imagination. (I wonder - did John 
of Pataoa aarve a almllar epprentlcaahlp? Guaaa it coaea 
down to who you want to trust...) 

I ahook free of the atora. After all, 1 had Juat 
mortgaged ayaalf Into next Tvjeadey for the thing, and the 
Devil clearly had no right to Interfere with human 
prograaa. I puahed the button, and the now-fealllar 
title, "EXTENDED COLOR BASIC L.I (C) MICROSOFT" replaced 
the anowy iaaga of Napalaollve Madge sosklng In detergent 
on the TV scrssn. No devil. No laps. Somewhere deep 
down Inside, I noticed a little pang of disappointment. 
Too bad - now I'd have to learn to uae the bleated thing. 

Since that time, I have watched two other people 
overcome their fear of Color Computers. Both are women In 
their later yeara. One's my mother, the other is her 
slater. Mother atarted out by buying the machine (and a 
double dlek drive, a tape machine, a paaael of aoftware, 
and a printer that coat more than all that put together]) 
Then ehe kept finding it impossible to find the time to use 
It - while the correspondence plied up, the newspaper 
clippings remained unfiled, and the games stayed in their 
csseettes, unplsyed. It took her ebout six aonths to 
reellze the real problea - end now she's enxlous to gst 
the mschlns bsck. Ses she hee to hsve It - she "loened" 
it to me, st one point. Csve up the whole system except 
the printer. I put it to work the next dsy st the hsnds 
of sn ssslstsnt. John now hss reserved his own CoCo 
system, but doesn't want to give here up until hie arrlvea. 
1 gueaa I have to agree with him, in a way. fis's 
revolutionised the way the coapany tells machines with s 
few simple tsxt files he crested in s couple of dsya. 

The other is sn sunt. She used to entertsln the same 
aort of lmaglnlnga thst I once used to Justify my 
ignorance. Then one of her dsughters wsnted to lesrn 
music In ths worst wsy % but with no money for college. 
The visit my cousin hsd with me (she shsres nons of hsr 
mother's fssrs) convinced her thst s copy of Musics 2 by 
Speech Systsms, plus s CoCo to run It on, would be exsctly 
the right tool for the Job. Next thing I hesrd, Auntls is 
out to s computer club meeting, buying copies of Russ 
Walter's Secret Guide To Computera for her own education. 
Life la funny. 

Until next time... 
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The topic of this installment about the PL/9 
compiler/language la the set of PL/9 keywords, Crahan 
Trot t 'a basic philosophy behind the uae of keywords Is 
that you ought to have all the worda you need to do 
anything, but no more than are absolutely necessary. 
The most Important reason for taking this approach Is 
the need to keep the co-resident editor and compiler as 
snail as possible. This maximises the size of the 
program that can be developed In memory. Another 
benefit of this philosophy Is that It doesn't take much 
study to get a handle on the compact vocabulary. To 
master all of the waya It may be effectively used, 
however, Is a continuing adventure 1 expect to enjoy for 
a long time. The following la a list of the keywords 
with a brief explanation of each. The words are given 
In upper case, although caae la completely optional. 

ORIGIN $nnnn - location of object code; aame as 
assembly's ORG. 

STA(X $nnnn - Location of stack; eaaentlally the aame aa 
assembly "a LOS. 

DPAGE - $nn - aeta direct page register. I haven't uaed 
this one yet since my heritage Is FORTRAN and BASIC 
rather than aaaembly. 

MATHS $nnnn - Loads the arithmetic routines at location 
$nnnn. 

AT $nnnn: tt aa - Asalgna the name aa aa type tt (BYTE, 
INTECER or REAL) at location $nnnn. Designed primarily 
for hardware and STAR-DOS (or FLEX) addresses, but 
mighty nice for looking at variables when your program 
bomba • 

GLOBAL tt aa - Assigns the name aa as a global variable 
(available to all procedurea) of type tt, 

CONSTANT aa - nn - Asalgna the name aa as a constant nn 
which may be a byte or an Integer. 

BYTE aa nn... - Theae next three are like constants, 
and are often used to Include data tables alnce a Hat 
of numbers can follow each name aa and be read as a 
subscripted variable. 

INTEGER aa nn... - 

REAL aa nn. . . 

INCLUDE aa - When the compiler encounters thla It reada 
In dlak file aa, which la In PL/9 source, and compiles 
It as part of the program. 

The above are generally put at the beginning of the 
program before any procedures > which are the Individual 
modulee or subroutines of a PL/9 program. The laat 
procedure la where execution atarts, and *,any procedure 
can call any prevloualy-deacrlbed procedure. The 
following are uaed within procedures. 

PROCEDURE aal (tt2 aa2) : tt3 aa3 - Flrat line of a 
procedure. It la called by the name aal being Included 
In a later procedure. It may have paaaed to It values 
named aa2 of typa tt2. It will have local variable* aa3 
of type tt3. 



BNDPROC aa - Slgnala tha and of a procedure and may 
return a value aa, 

RETURN aa - Although eaaentlally the aame aa ENUPKOC, 
thla la a statement that will turn the atomach of a 
purlat In atructured programming. Whsreever It la 
encountered In a procedure It enda the procedure and 
returna control to the calling procedure. It may return 
the value of aa. RETURN la uaually Invoked when some 
condition la met. 

BEGIN, END - Theae are used to enclose a group of 
statements that are to be treated aa a alngle unit. 

IF expression 

THEN statement 

ELSE atatenent - Juat like BASIC. 

IF expression 

CASE nnl THEN atatementl 

CASE nn2 THEN statemeot2. . . 

ELSE nnx THEN statementx - Provides for more than two 
possibilities. 

WHILE condition statement - While the condition la true 
the statement will be repeatedly executed. A BECIN-END 
can be used to control a group of statements. 

REPEAT ststement UNTIL condition * This differs from 
WHILE In thst the ststement will slwsys be executed st 
lesst once. 

REPEAT ststement FOREVER - Just like It ssys. 

AND, OR, EOR - These provide bitwise setting snd 
clesrlng. ".AND 1 ', ".OR", ".I0R M - Uglcsl operstors 
useful In multiple tests In IF-THEN, IP-CASE, WHILE, snd 
REPSAT-UKTIL ststements. The quotation marks sre not 
used; they sre here for the benefit of the TSC Text 
Proceseor, which uses periods for formatting commands. 

BREAK - Escspes from the current WHILE or REPEAT loop. 

GOTO aa - A particularly nsusestlng exsmple of the 
freedom thst PL/9 provides the programmer. It trsnsfers 
control bsck to some earlier point In the procedure st 
lsbel as. 

CALL ss (or) $nnnn - Allows the celling of a subroutine 
outside of the PL/9 program. This allows the simple use 
of STAR-DOS (or FLEX) system routines, for example. 

JUMP aa (or) $nnnn - Trsnsfers control of the program. 

GEK $nn... * Hex codes thst follow GEN sre lnssrted 
directly Into the progrsm snd provide a wsy to use 
sssembly routines... if for some resson you want to. 

ASNPROC aa - Defines s procedure composed of juat GEN 
ststements. 

ACCA * $nn 

ACCB - $nn 

CCR ■» $nn 

ACCD - $nnnn 
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XREG - $nnnn - These four allow you to store values 
directly In the respective registers of the 6809* They 
also allow teats for particular contents. 

RESET. NH1, P1RQ, IRQ, SWI, SWI2, SWI3 - allow the 
Integration of Interrupt service routines Into PL/9 
programs. 

Because 1 do the grocery shopping for our family, this 
provided me with the Inspiration for this article's PL/9 
program. While 1 can handle the grocery store chore, 
Gall la In charge of the kitchen, ao she needs to b€ 
able to provide me with the requisite shopping list. 
The hardest part of aettlng up this application waa 
writing down a list of the lteme we buy to serve as a 
master file. What make* this whole enterprise worth 
while waa the fact that the ltema are listed In the 
order 1 encounter thea during ay trek through the store. 

GROC.CKU provides two functions, the first ot which ia 
to print In three columns on one page the 194 items of 
the aaater list. Gall circles the numbers on this list 
of the lteas she wants me to buy in ay next shopping 
trip. She also writes in the quantities for snything 
more than one, plus any comments that may be appropriate 
to be pure 1 get what in needed. Then It's time tr> use 
the secund Junction of CROC, preparing the shopping 
list. This involves entering the numbers of the items, 
snd for the quantities, the SHIFT key plus the quantity. 
Yes, the permitted quantities sre just 2 to 9 t but what 
do you wsnt for s free program? Seriously, 1 find this 
completely adequate, and it made the programming a bit 
almpler. To add in Gall'a comments, I precede them with 
a ",". Entering an "S" atart* the printout of the 
a hopping Hat, and a typical entry would look like this: 
4 TOMATO, LARGE ONES 

/• (MX, Crott* j *Aof»t«! li«t fro* t utalut o* it**« mill? 

• ourehm*. torttfl if» tht erdor Mtomitt'rt it I K« It tort. 

♦ lit* Mi cott#«t fitltfs if lititrt to 12 chirattfrf. 

sua - wffi 

aOML ll\E«E* UEftS. TOIM.; 

irrt R«t * *\ 

zmsim hm - «w, fimjm • wc. iell - 107, 01 « -j, off • o; 

ft] lUOOf IUE LISUWiWj t* Tht nusbtrt in ptrvnthtiri jrf •/ 

AT iXOOt ttfE nEH(»00»i t* not nfcrit*r, but can br ♦/ 

AT 139001 ME COfVCIIUJOOlj /♦ frtlPful iv dtKfting *nd •/ 

AT fHWi IVTE QUMUTrtUOO); /• tlMttMict. *f 

AT 1U40: IYTE FCHJ?0»; 

Ar ICC09: IflE PAUS€; 

M ICC1«: 1ATE6C* LlMEJlfFEA.WlMTH; 

«U0E JOSmtSt f 1/0 ProcfftVn •( 

JUXUtf OOSSUISi f STMVJOS <or FLiU Procttortt •/ 

lAtWOC STASU8S; /• Stfii9-MAio«Uti^ Procter" t/ 

fiorutft ma tm <i?ie cma*u 

ACTJ « CNAff; 

CALL ICCE4; M ICCEI - PI (ITEM, ICIII - SCKEI •/ 

E«PWL; 

PWLOtMl Ptlll.STIlM] (UTE .STAINS); 
IMIiE SIM* 
Kit* 

rtUT_CHMlSTRI*3l| 

.SHIMS - .SIMJRfi • 11 /A V ■ pointer •/ 
EM; 
EWPWCi 



PftJJCEOURE PIIIIJIIN (INTEGER It DTE JTEMIi l»TC 1, MJPafftlll; 

NUPJERlO) ■ I / 100 ♦ t30| 

IF tUHKftIO) - 130 tHEM MJftXftlO) - 0Lmft«i 



n « n - n MOO • 100; 

MUMMATU ■ A / to • I30| 

IF ftMCM(0> • 120 .AM MUMKA(I) - flO THEM AVUFtUI - ILAAK; 

MMKM(2> ■ • A [0 ♦ iO ♦ 130; 

MEJH3J - Ot 

PMMT STAI«1,MUftJ£R>S PlIVl.CNAfft .1; PftlMT,CHM4ttMKI; 

I ■ *] 

IF IfEN - 

TMEJ PAIII.CHM(lLAmti) 
ELSE PRZVT.CMM<|TCHi{ 
.ITEN « . IFEH ♦ I; 
1*1*1; 
UNTIL 1 - 33; 
PftlNlJ1Rl*MLAJirS>; 
OIDPROC; 

nxtmi clear, vectors: integer u 

I -4f; 
REPEAT 

lUPflll ■ Uf 

COMENTIII « 0; 
OUAHTirVCU - 0| 

I • I ♦ li 
mm i - 33oot 

ENOPROCt 

fWCEOWE CHECl OtAQAlllfTE .FCllj 
TF FP(|! THEA> 
IE6IM 

AEPOR^ERtORl.Ftll; 

MS; /• tar* ttart ot STM-MS or FLEl •/ 
ERS; 
EM0PH0C1 

PR0CEJW AEM,€R0Cflr.FILEt JHU«« I; 
11AE IUFFEA MJATER - -6WCRIES.MT*; KT.FlLfmVEl.FCIi; 
OPEI.FOMlEAIufCI); C*CH ERSMufCI»; 
I « i; 

■MILE FCIII l i> 8 
KfilN 

LISTlll - REMlFCIM 

if irsnn » cr 

MA 
ItEfial 

USUI) -0| 

I « I ♦ I 

UNTIL T \ 33 ■ 0; 
lift 

j * I ♦ I; 
EA0t 
CLOSE. FILEl.FCD; 
T0TAI • I / 33; 
EVDPROC; 

PIOCEOMK KliT HAIDER LESTt 1AUE6ER 1, I, T; 

PPINf.CNJ«il0f)i /• irSOB COAPKSSEI F0HT •/ 

1 - TOTAL / 3] 

1 » J • Ij 

1 ' 0; 

AEPCAI 

P*|ANTEA<),.L(SMII33>>; 

Pfllltr MEHi)«i,.LJSUil+hi33»; 

PJWMTCH»UT,alSTltl*lMJJ)l; 

PRUT "CNMIiaii PRllT.CMAfUFJi 

1 « I • I; 
(MTU 1 - J; 
PRIMA CMMUFOM FEEIt; 
PMIMt CMBMUI2J; /• EPSON ISAM. FOJIT *< 
EAflPflXi 



FU0CIWMC EIJER MlfiERS: 

IYTE lUfFfRU2l( IATEKA MMfO, I, J, .LISTJTER; 
PRIlM'Efltfr fiumWt for itm, isiFiiA teafctM lor QtinitittH f2-t)-MP>| 
PHINU'PrttAAt cotatats milh *\*\ Mil tnttr "S" to stop.\r>; 
HEMS t 0; 
J ■ -3Jr 
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tfPiAl 




IF ftUAKHTll]) « IHER 60ANTITVI]) * ILAK| 




iNhiri.«*FEM?i; 




PRW_STRl*>I.BUAICT[mn»; 




CHf| 




PRIMT.CHMKBLAftlli 




IF MJFFER > S .OR UFftf « i 




PRlRT_$T«lRSUlEH<|h| 




1HEN IKlliBli 




FRUT.STR(MSt.COmEifMJJ{ 




ELSE 




PR(RT.UMR(CR»| fRJKT [HAJHLFl; 




JF BUFFER * , 




1 c ] 05: 




IHER STRCDfV< 4 C(MH»U 1 >,. BUFFER) | 




nm « iurs - it 




ELSE 




END; 




If BUFFER < , 




PftlRT CHAR IFORJI. FEED >; 




7*R 




twiicj 




BEB1R 








BUFFER c BUFFER » 110$ 




PROCEDURE miN: iriE CHAR; 




StRCORrt.QUAATtTIIlU, 


BUFFER J; 


CALL ICCCO; /• IRIIIALIIE WIRIER « 




E«0, 




PAUSE • OFF; 




LLS€ 




PftMTi ( Mt\N6rocKV LfiV*>S 




BC&IN 




REM SROCERY.FJLE; 




1 * J ♦ 53; 




CLEAR. VECTORS; 




HEWS ■ Jl£*S ♦ J; 




REPERl 




•JIBE* « «i 




FIMCHARlJClU: 




* ■«{ 




•RtMi'\R*liVm *ue»tr «f «tfjrrt *e*ctioai\R\R # l 


i 


■KILE WFFERUl <> 




PR J Mm. Prtpirt shopping hit. MB. Print uitfr 


lUlJil'l; 


ilfiln 




HtNTl'J. RtUrn tn 00$. \R'); 




miK* « iww« 


» JO; 


REPEAl 




ftjHlER ■ **** 


* mtFERIJi - IJO; 


CHM ■ KTBHAft; 




* . J ♦ J; 




MTU CNAR > ,Att CNM < «* 




«*l 




CRXF; 




.LIS1.JTEH » .LISI » RUMCR • 13; 


IF CHAR 




SIRCQPM.IIEAII), .LISI HER>| 


CASE 1 THEN 




**{ 




KGiN 




FflUfVlkj 




ENIEI HABEAS; 




EKOPROC; 




PhlHt SHOPPl* LIS1; 
EAR; 




PftOCEfURE PRIRT_SMDPP1*_LIST: INTE6ER t, .POUTER; 


CASE '? THEN PRIHI PUkSrCl LI5T; 




1 * l>; 




4WTIL CHAR i ij 
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Guarantee 680X Microprocessor 
Controlled Computers Optra! Ion With 
Respect to Processor Specif lest Ions 
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All computer* have operating psremeters, the beat 
case and woret case conditions determine theaa 
per erne tare and provide guaranteed proper operetlon 
reliability wltbln their parameters. Computer deelgne 
which Implsnent the 680X mlcroprocaeeore ae with all 
deelgne suet be deelgned for guerantaed proper 
operetlon with reepect to vlcroproceeeore 
specification*. The proceeeore deelgo epeclf lcetlone 
which suet be obeyed ere the woret ceee condition* 
over vhlch It le epeclfled to be guerantaed to 

68' Micro Journal 



reliably function. 

Opon recently deelgnlng e 6809E up computer eye tea, 
I encountered thet Interfacing to noo-68XX perlpherele 
and deelgnlng lerge eye terns controlled by 680X upe 
lanoeed an Inherent conflict to the proceeeor when 
buffering the data bua. The requirement for data bua 

buffere lapoeee the conflict of violating the 
proceeeora worst caee read-data hold time which the 
proceeeor raqulree, and hence the proceeeor end thue 
the entire computer eyetev le not guerenteed for 
operetlon over eny per erne tera. 1 have reviewed many 
6801 up controlled cowputere and have found 
epproxlsately 901 In violation of thle very important, 
easily overlooked, but crucial specification. 
Although eye terns may function within typical operetlng 
paramstere (I.e. ••blent room temper eture envlromasnte 
and typical electrical conditions), there le no 
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guarantee of eny degree of reliability. 

The 680X family of aicroprocceeore beve cepecltive 
dete bueee internally, vbicb belpe tbe reed dete bold 
time io varyiog degreea. but io order to guerentee 
proper operetioo of the proceeeor eod entire computer 
eyetem, all beet-ceee, woret-ceee apecif icatiooa 
abould be etrictly obeyed through proper logic end 
inter fece circuitry. Following ere eomc aolutione to 
the often dieobeyed reed dete hold tine epecificetioo 
for typicel bus operetione end interfece requirements . 
All of the folltjvion aolutione will provide 
guaranteed proper operation of the dete bue end will 
tbue provide guaranteed reliable operation of the 
entire computer systea. All of the following 
aolutione provide proper logic circuitry for date bue 
operation. in addition some eolutlone provide 
Interfece apaclf lcatiooi which eneble interfacing to 
virtually ell dete bue requlremgnte including lnduatry 
bue atanderde. Theae aolutione ere eble to correct 
ell existing 680X processor computer wit— which 
currently heve tble conflict, with only minor logic 
circuitry modlflcstlotis . 

A. Solution 1 la en inexpensive eolutlon wblcb 
euppllee the correct dete bue deelgn for only 
6809, 09E proceaeor eyetcma. 

Solution l'e only dleedvantagc le the 
requirement for ell the peripherele to have feet 
read dete eccaee time a ranging within lta 
reetrlctlng timing specifications. 

B. Solution 2 le en loaxpeneive eolutlon which 
euppllee the correct dete hue deelgn for ell 680X 
faaily proceeeor eyeteme. 

Solution 2 baa no appereot dleedventegee , the 
required eelect logic eod buffer/letch herdvere 
logic circuitry ere inexpensive lnduccty etenderd 
I.C. 'a, end thle eolutlon bee many verlctlce of 
available bue operetioo and Interfece 
specification* complying to virtually ell 
exletlng 6801 proceeeor ayeteme, eod tbue 
fulfills virtually every poeelble dete bue 
requirement and hence ell exletlng peripherele. 



Both eolutlone eleo provide verylog bua operetione 
and interface •pacifications which eupply compliance 
to veiylog lnduetry bua atenderde, sccordlogly the 
solution sslsctsd will bs dscldsd respectively. 

Following srs the techolcel epeclflce for both 
solutions 1, snd 2. 
SOLUTION 1 : 

Solution 1 provldss sn inexpensive corrsctlon for 
sny of ths 6809, 09E procsssor computsrs by using ths 
dlrsct conosctloo wlrss for rssl time dsts trsosfsr, 
snd tbs dsts buffsr ss s lstch whsn ths buffsr Is 
enabled. Dsts busss desiring to Implement thle 
eolutlon Must operete within teble 0* timing 
cpecif lcetlooe. Teble 5 above the deecrlptlon of eecb 
of the referred times from tsbls 0. 

Ul Is s bl-dlrectloncl buffsr which hss proper 
output voltsgss wblcb srs guaranteed to properly 
operete within proceeeor dete bue input voltege 
requirements. 

U2 Is sn inverting ttl compatible dslsy 11ns 
which rsqulrss s minimum dslsy of t . holding ths 
valid lstchsd rssd dsts s minimum of the duretloo of 
the proceeeore required t- , U2 muet evold cxceeelve 
deleys so as to svold dsts bus cootsntlon with ths 
osxt following bua cycls in sequence. The digital 
deley line U2 requires time deleye ee noted in chert 
0. 

Figure le eolutlon l* echemstlc dlegrsa which 
will guarantee proper dete bold time for ell 6809, 09E 
proceeeore only. 

Thle eolutlon (1) requlrea that on e proceeeor 
reed cycle; the logic circuitry's maximum dslsy timee 
srs such that the valid reed dete le oo the locel dete 
bua before or consecutively with "E** clock rlee ebove 
V to evold contention when the dete buffer emuletee e 
letch. 

Thle eolutlon (l) oo e write cycle bolde valid 
dete on tbe globel dete bue e minimum of the leeet of 

W'on " d ^LYl^Ull after "*" *•!* «<>ge belov V 
wblcb euppllee compliance to bue operetione and 
interface epecif icatiooa wblcb rsqulrs valid write 
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data being bald on tha data bua graatar tbas t Q aftar 
tba falling adga of tha "I" clock. 

Tha minimal tlat delay for U2(t DLT1 > la tha time 
which guaraataaa tba procaaaora valid raad data hold 
time aftar '*&" clock fall adga -V. . 

L 

Th* maximum time dalay for U2(t DI _-) la the tine 
which avolda bua contention with tha next following 
bua cycle In sequence. 

TMe aolutloo (l) requlree that for the 6809, 09E 
the logic circuitry timing apeclf lcatlona guarantee 
atrlct raad data aatup time a where t rjtv) 4t |j»A *• l€M 
tban or equal to ^-^752 "^2**0X11 to the proceeaor 
clock*. Thle eolutloo (1) requlrea that for tba 6809E 
the procaaeor clock elgnele from clock generating 
circuitry guarantee etrlct reed dete eetup time a where 

t D0Q + SlU l " l%mm th *° or «9 ual co 

t »r t BQl 2" t Qr2* t DLT 1' 

sourriow 2 ? 

Tbla eolutloo (2) will provide proper dete 
communication logic for many vsrlstlons of lnterfece. 
Teblaa 1-4 ahow tha verletlons for eecb 680X 



proceeeor. The teblea eleo ehow the dete bue 
operetlon end lnterfece edventegee to determine which 
eolutloo le epproprlate for continued operetloo with 
exletlng peripherals. Theee eolutlone (2) provide 
guaranteed proper operetlon eolutlone to four 
different bua operetloo end lnterfece apeclf lcatlona, 
which provide simp Is eelectlon for the proper 
lnterfece conatrelnte which eneble Interfacing to 
exletlng peripheral*. Table 5 a how a the description 
of eech of the referred tines frob tables 1-4, 

Three configuration* of buffer/letch eelect logic 
ere eupplled for varying option* of bue operetlon end 
lnterfece rsqulremeute. 

U_ D and (L_ are either mono -direct lonel buffere 
or letchee depending on the bua operetlon end 
lnterfece apeclf i cat ion* required, both of which heve 
bue operetlng apeclf icetiou* (voltage* current, and 
capacitance) which ere guerenteed to properly operete 
within the proceeeore dete bua epaclf icetion*. 

V.. and U_. ere ncn- Inverting ttl compatible 
deley llnee whlcb buffer/hold valid read date e 
minimum of the duration of the procaaeor* required 
t DHR* °A1 * od C b1 mimt • vola " axceealve deleye eo ae 
to avoid date bue contention with the next following 
bue cycle In eequence. 

U A2' U A3' U »2' U B3' U 84' " d U C 1 " € th€ 
buffer/letch eelect logic gate* which decode which of 

U (read buffer/letch) end U^ (write buffer/letch) 

to enable. 

Tablee 1-4 ehow the verloue bua operetloo end 

lnterfece apeclf lcetlona which are available with 

aolutlon 2. 

Figure 1 le eolutloo 2'° echcmatlc diagram which 
will guarantee proper dete bold time for ell 6 BOX 
proceeeore. 

In conclusion, Implemcntst ion of any of tba above 
eolutlone will provide correct dete bue design, and 
guar so teed relleble operetlon of ell 680X proceeeor 
computer systems. 
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• a a ♦ -to bold valid raad no acora/latcb op * 
a ft i a. * «4aca oa tbo global •vtlta data wlthla t_-* 

• a a * a M*ia boa a ala.et t^ *aft»r "f fall adga • 
a a * a a <offor tbo (all «dgv "'•-» • 

• * a i«l "tT-V,. •Solace logic la raa/d* 
a a a a a •ioloct logic la too 'd*to tooara tho raad) • 
i ft t • no loawra ^p tho roodVdata baffer ta bo • 
a a a a a M*ta apvCa. to bo dlaablad bofora T* • 

• a a a . «oh«yod Oocb that t. ••rU«*v | »? laowrlag • 
» • a * a t ,n, loauraS n ♦« , to ba IvM ' 

• a • a • nM ^rolltoora raad »i6So tj to *vold 

a a ■ ■ * «crcla ro^u 1 roaaeta. *dala bsl coot vol 10p • 

• • a a | • «wltb a POMlbU ■ 
a a a a a a •follovtn* wrtCO Cycla* 
a # a a a a »»inl In I 



• f 

• 2 



' ITP» 
• 6S09 



a aalact 

• topic 



:■*•: 



data Wa« and »ntacf«cv •poca. 



i t Q U 



It. 



:..:.aYi., 



*24* .laid data real (loot •UMta data rval (lao • 
•up r*«ulraa raad data*up holda valid urlta « 
*OA tha local but a 'data oo tha local bua* 
•ola.of c altar H f"»a at*, of t^^ aftar • 



•fall cdgi 



m. 



1/ 



"PJ aaJV* wa ■■ - Mtt all 1 

■"IT fall adif**V , 



•••ripnarala ar# r*q'4»S+laci logic la rt^'4" 
•to bold valid raad *to laaura a ala. dalay* 
•data on tbo global *of t n^. froa • 
•data bua • ola.of n il4l 7il M ^l| „ af 



'Dan aftar "£' 



'VAir^Vall^UlRr 
fall *vMch tlao valtd 



•odto-v . •vrlta dot* ao longer • 

•SoloetnoAlc la rao^kdrlvoa tho fttohal • 

•to Ittlura a «lo,dalay*data bud. • 
•of i m froa •Pcrlpherala ara roo'd* 

"OAII^UAJI**™*' -t ° ■ t "-' 1 - ttb ««" ' 

• UMI VWt »»P urllv data within • 

* *t aftar T* fall • 



• oola. • ap • Mitel * U_ * U • data baa. aad t»tarfac apoca, • 
at a 1 , pm , 4 latic a • "» a duo lO U • OOO to * 
a.... *..aaa»...............a...........a s ••••••« «..ov«... «.*«•. •••«.*•«. •!•..•«..• 

« 2 a 4ft0« « a •• JJJ • ' J7J afeaod daCd *af<«~4? "Vrlta data latchodt • 

• ft • Oft ooa, roaalraa raod dataoaft aolda aalJd vrlt* • 

• ■ • •oa tbv local bos a •data oa tho local bua* 

■ ft • ■ • aala.af i aftar "¥*•* ala. of t^., dftvr • 

■ • ■ a a af t |i *d # V«i t , ■"!" (*U OftJo*y . • 

» ft ft * * •Porlpharala ara roq r d*PorlpH«rala art roo/o« 

• • • ♦ *ta bold vol Id road *to atora/latcb vp * 

• ft • a • Mat a oa tha global •vrlta dtta within • 

•dot. bud t ala.of t -t ,K^ *t * 

• ■ • ■ ■•fttr tba fall od«o v -afM* 'T^UiTU%* * 

• ■ • * • *9t "E"WT ; which la *-V ; which la tho • 

■ ■ ■ » ■ •dm cM L iaich latclr-nlfta CO watt) tho • 

• ft • tha raad datt. natch la dlaablad • 

» ft • a a •Stltct logic 1ft raq'd'fro* drlvlog valid ■ 

• ft i 1 ft no provlda a aln. *daco oo tha glob*! • 

■ • • • a *dalay of l-,^--,- 'data bua. • 

* ■ nroa l., At MZJ}F -Salact logic ll rt^'d- 

• * a * * M .. l *" ^^^ «to Inaura a ala. • 

'd.ioy of t n *• 

• ■ • a a • **t*ni ***"« «■(■■«■ ' 

*4anF J aa tho pvrlph- • 
» » ■ a a a *«ral ra ulraaantt. • 

Tha coablnatlona of r»ad . and wrltt buf far/latch aalact logic 
'2«»,'m tnd ' 1I>.*244 hava tha aaaa raapnctlvo paraaotora pcavloualy daacrlbod. 

TAIU 3.2 

a oola, - Mp * oolvct • n • t tf# • data bua. and latarfaca apaca. • 

• t a (r pa a | B||1C a ■ a ** a dot to « • do* to ' * 
a aaa*. ••• a a aaa •• a • a«a «a a ■■.............•«•• a a«aaa a aio«a... a*. • »«*a«aa»a|fa4t*aaa. 

• 2 • M0* • ■ »*244 •*2*4 aPaad doto raal claai «wrlta data rtal tlaa):* 

• • i • ft *Wp roOulraa raod ddta*op holda valid writ a • 

• • a *oa tbo local bua a ***** oa I h* local boa* 

■ • • « a •ola.of t aftar "«"*a ala. of t aftar • 

■ * ■ *f*u ****** _. *-r f*u tftlP*,. 

• • • • * *Patl>b*falB *r* roa'd'Tatlpaar*!* ara^raa'd- 
a a a ft ft ft|a) bold) valid road **o lacch or Mora • 

• • ft * * **at« *«, tba global •valid writ* data • 

• a a ft ft «dat« bo* a ala. of *vlthla I |1#J , , *« rtfcJi * * • 

• • • • •!__ *«tor -i- ran n—j.+tJJJ^ftW* hr * 

SJH-t . aflff '*d|Pv , WhUb • 

• a ft * • •lalact^OftU 1* rtft'daiba tlaa ai vt.lt r tha* 

• • a ft ft >co linn tha «p*a •b*ffar la dlaablad • 

• • • * a aroad data tftclflca- •froa drlvlaa, valid • 

• * ■ • • ntaa* ara abayad oMCh*d*ta oa tbo global • 
•* * * • *tha( tho road data *d*ta *al r > 
ft ft ■ • * *bufftr it dltoblad Privet logic autt • 

• • > * • •bofora *V tIo«*V by*laaur« tbo road dot* • 

• * * • a nnoerlag t^j^^JJ. -+^iff*r 1* dlMblod • 

• • ' * • •*«*?, l » llnTthftT "froa tba c.rraai • 

• • • • ■•Iu«i- t *a' *cyelt Vtfor* *V rlaa* 

a a ft a ft ft * nl **1 *- V , of t*« OOKt fr*€J . • 

• • * • • • •ttOKftal cycio by la- * 

• ■ ■ a a a **urla| t*,,**^ froa* 

• a a a ft ft •> 4i M *»i w '* * • 

.."i; JiM4a!™» * 

• • ■ * • • •buaTfcatOAtlon with a* 

• • • • • • opoaaiMa writ* cfcl* • 



*noxt 1* toftuaata. 
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d*ta bit*, and Interface op.co. 

due to u m • du« to t; u » 



'373 ■ Ma.d data latEh.de *Vrlco dote laecbadt * 
•up reqwlraa rtod deta*up holdi valid wrlea • 
•on ch. local Ova ■ *dete on tho locei buo - 
%to.ef tg^- after !"•• Bin- of C^^ afcar • 

•»■!! odaPf, • «-r foil OdW*V, • 

•roflf>her«le at. T««/d*F.rlpb.rale ar. f.q'd* 
♦to bold vilU taed Ho atore/lacch up * 
•data on cha global •writ, data within * 

•data hue a Bin. of t_ *t ll .| ***.,_*! **.-».+ • 
•aftor eh. fall adga Q t^ .fti* Woli * 
■of T«V! notch la '*J|T*V; which la Ch** 
•w**» th. Lech l.cch~"Cla» t* whan tho * 

•ee tho r*ed data. •l.cch ta dlaobltd • 

•Sol ct logic co r«Vd"froa driving valid * 
•wrleo data en Cho ■ 

•global daca bua. 



•Co pfovldo a ala. 
'delay of *„,«„ 

■'UgJI^UlDJ' 



•frai 



•Solace logic la req*d« 
•Co Iniura a din. • 

•dlM"***!".. cho 
•parlpharal raqulra- ■ 

"BOO [4 



Tha cOOblAJtto o of rood, and wcllo buffer/latch aalacc logic 
'244, '573 a»d 'SHi'Jia taavo cho km raatecttva peraaaceri provlouoly described. 
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1 <m ' 



•alter 

logic 



data by., and lacerface ap*ca. 
loo CO U^ * du. CO U m 



'J7> *IUod doca locchadt •Urtio dica l.tcVtodi * 
*u* toqwlraa road d.t.aMb holdo valid write * 
•«0 the local bua a *data on Cha local bua* 
••In. of ( ofcor *g H *a bIh. of i,^. ofcar * 

•foil edgJH , , - »"*" fall odH&v.. • 

•Fertpher.le era r.q'd "Peripheral a ere roq'd* 
•co hold valid road *co .core/ latch up * 
•daca o. tho global "wrlea data ulcHlo ■ 

•data bua a aU.of I • t u»N* t llAai n [ajM ' 

•altar tho foil orfgo '.Mr •WtlPeo'ge I 
•tof "g"-V i which 10 *■*,; which la tha ■ 

•vftaa «ho leech iatch-*eiJu to whao eh. • 

•*a ch. reed data. •loeeh 1. dl tabled * 

•S.loct logic lo r*q'd a fro« driving valid • 
•to provtdo o ale. •doc on ch. global • 
•delay of t ..«« .doc* boJ. • 

" ,rom c »Aii**tfAll* *Soloci logic 19 raq'd' 
■'u-gpi- ' to l " ur * ■ ■*»• ■ 

•dalay of t UA ,.«*y fJ ^» 

•daa*"** en. pariah- • 
a 'oral raq.utrta>*qco. • 



Tho eaabln.Mona of road, and vrH* butf ar/UtCh ialoct logic 
*2*4.'375 o.d '373. '24* have tho mm re.F*ctlv. roraaac.ro »r*wlfla*l> daacelbcd. 
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de<o bo., Ond Intartetv eaece. 
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'244 aJCaad dot. r..i tin* *Vrtta <t.ta real da*:' 
•up r.quir.. r.ad 00t4*uP ?K»lda valid wcico • 
•OH ChO locol bua •dot. o« Ch. local bua* 
•sU.of < num afC.r "€"•. Bin. of f offer * 

• fall adgPV . * H r ran .*Iff=v . i 
•Poriphofilo or. rae'd«r«ripKarai» at* r*q'd» 
•to hold valid road «to atoro/lotch up • 
•data on tha global *wtlta data within • 
•data bua a min.of «t oftor "g" foil * 
•l nM|l *ft«r *»>. fall •*oga-V . • 
••UBS of "g"-V . "Sal cct logic ta ra^'d - 
•S loct logic »■ r.q'd*to inauco Cha r*.d • 
•Co lnaura up t a rc*4*data buff.r to b* • 
♦data »p«<0. to bo 'dilOblod bofoTO "I" • 
■Vbovod ooch that t AVS *ri»a-V by iaawrlng • 

•iuNi CM'proffioora -iK5k cJJt'lo ovoid • 

•rood crclo ro«.wlra- a dnc« bSV concoction • 

•manco. *wleh a OOa.lbl. * 

• 'foiioviog writ, cycio* 

• *noat to «.c|umc.. * 



aa>ta 

• oolo 

• I 



TULI >,) 

pM«MtUHMiMi«ittltllii» •••« 1*1 * « • » • I lillili 

• ogwet * V u • Wy, • dai* bua. and locarfoea 



duo to u ♦ du. to U * 

!*«••• • «t«i*l««tl*«tll*iiitl»li««li*l«t 

373 *'373 ■•.ad d.c. lotchodl *vrlta data lac had • 

• *up roojulroi road d.[**uf hold a valid writ* • 

• *on tha lof.L bua o •data on. th* local bu** 

■ **ln,&f l aftar **I"*o Bin. of t^ aftOT • 

• "foil odglBV, . »T fall odPPfv . 

a •Parlpnar.l. at* r.q'd*F.rlpb.rala art r*^"d" 

■ «to hold woltd rood "to acoro/laech up • 

• 'data on tho global •wrtc. daca wlebla r • 

• "data bua * olo.of e Q •♦( afear M E" tatl* 

• *aftor tha fall »dg* "OdtW. , • 

• •ot -I--V ; ,blth la ■ L • 

• M»ta i h* latch latch-* ■ 

• *tt th* raad data. • * 



Th* coBbtaotlfifta of f.ad, and urlca bvff*f/l*tch at lac e logic 
'Z44/373 and '373, '244 hav. th. 00b* raopactlv. paraatlara provloualy doacrlbad. 



• ioln« 
■ t 



u p 
t ?po 



la loct • U 

logic • "' 



' •*»« " 



data bua. .Ad lbtarf.«a apacd. 



dlM tO U, 
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duo to u. 
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a.a I ••.***• •*#»• 



*2*4 ilaad data ra.i tla*: "Vrlea data rul tlnoi* 
•up s.qulro. r.ad dato'up holdo voll<l urito • 
•OO tit. local bun a 'daca oa tho local bua* 

-Bi..of i tliif M i"o a «t.. af t oftor » 
•f.ii odiVW , »-f- ttil oo|Pv . • 

•Farloftarala aca r.<l , d*S*l.ct logic La L raq h d* 
•to hold valid raid "co loaur. a ola.doloy* 
•dace on cho globol "of t »e fro. • 
doca buo a BlU.of ^iJAU^-j^wij- "* 
•t M aft.r "1- fall •iMUi c» 1 v«jfll J 
*.o|S"V "urlca doca no loog.r * 
'Salocc logic la raq'dadrlvt. ch. global * 
•to Inauro o sin. dolor "data bua, * 
•of l-f2«*rjH» ifKm •Forlph.r.l. ata r.q^d* 
* C Va1 f**UAZl ,< llllD»- ' Cfl •tOto/lotCh valid • 
a VMi "*** MM,> "uP wClta doca within • 
♦ •t- uu aftor T fall • 
♦.Ala.V . 
»tiMiiWiiiii tat 
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ooloct • U-, 

legit • "* 
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data bua* and lntorfaeo ihci. 
du. to U M „ • dv« t. «„. 



••V., 



t w «. 



data bu. a oin.of •wlthlo c , , *\ t *■ " 

'■BfiiV. •fHrBa|o«» which * 

S#ltc« logic la r«q'd*th* limm at which th*« 



*2*4 'Aaad data real cla»*: •Writ* data r.al ClBO:" 
•up r fwiroo road doto'up halcla valid wrlea • 
•oa ch. local bVa a *daca On Ch. local but* 
•Bin. of t aftor "VU Bin. of I aftar • 

•f*U •dgiW a-g" r.A) MtTPv 

•Potialutral. ar. r«*/d*NrlPhO)tfOlO ar* rtq.d* 
•to hold v.lld tood «eo latch or oco • * 
•data on tha global *VOlld wtlt. data 
'dot. bu. a .in. of •wlchlo C,„ 

t oftar -r foil 

;>V 
•SclHtSeglc 1* roq', 

•co intura ch* wp'o *ouff.r 1b di oblod 

•red data a pacific.- "froa driving valid 

•cloej arc ohoyad ouch*d.to on too globol a 

"that tho rt»i data *dae* bu. . a 

•buff.r I. dlublod 'Soloct 10«lc antat a 

• .for. "Q" rlat-V br*laaura cbo raad data • 

•lnauring i 1ltll ,+f l j- i ,**bu(fw Ab dlaoblod • 

lilr'fchXT' "fro* cho currant * 

•efel* baforo 'X)" rl*o* 

"-V , of th* na.t a.^-« 

•ucncial cycl. by in- • 
•a^rlag t^j**^ lroo« 

•t +1 *+r w " p * • 

u™J .. 1 3ipiV > ilt. • 

•faui^fontantlBn with a* 
•poMlbl. writ, crclo " 
•*«ar 1a l 
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data bu.. 
►ai^.I.ttM* 



and In tar f aca ap*cO. 

* duO to LI 



♦J7J aiuwd dato lot c hod t avrlto data latchadi • 
* Sip roqjwiroo r.*4 data*up hold, v.lld writ. • 
«on ch. local buo *daea on tho local bua* 
•Bin. of i of car Tm ata. of i^ ofcor • 
■faJl .dgW . a M I" fall tofPl . 

•Porlph.ralo.ra roq'd.rorlpbar.lo ara r.q'd* 
•to hold v.lld r*ad *to aiora/l.tch «■ * 

•data oa tha global •writ, iota within * 
•data bwo . Blo.of t. H tJin 'K 1 _..+t Jil - 1 4 • 
•aft.r tha fall adga 9 •tj'" 1 .VRf "i? |I Kll ♦ 
**f "f'-V **itcb la -talldV. which la tha* 
•whan th* latch latch-«tiB. tfi whan tha • 

•aa th. toad d*ta- natch L* dlaabl.d • 
•Salaet logic la r*«*d*fro» driving valid * 
•wrlto data OB th. * 

•global dato bwo. * 

aSoloct logic U rtt'd* 
•to tnouro o Bin. • 

•d.ioy of t at 4. 

M^dUoT'oV th. • 

•aatibooral r.quir.- • 
•Boot.. • 



•to pro-rid* a bIb 
•dalay of t..,**--. 

/viij^uttJ" 



tt>* coabiaatla.. of r.ad, .ad w it. buffor/loccK oolocc logic 
'2*4. *»3 aod ' 373 ,' 244 bovo cha .bb. raopactlv. paraaiara provlooaly doocrlbad. 
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Niv ■■■ %?■■ rmm 
TSC XBflSIC Programs Compiled to Asmb. Lang., 

under 0S-9 Tn . CoCo 0S-9.nr FLEX™ nuth 

* K-BASIC 



TILKl 9Si 414 rVT ITM 



(615)842-4600 A, 

5900 Cassandra Smith Rd. 
Hixson, TN 37343 

tor Information 
call (615) 642-4601 

CoCo OS-9~ FlIX" 1 

SOFTWARE 



K— BASIC under OS-9 and FLEX mill noui compile 
TSC BASIC. XBflSIC. and XPC Source Code Files 

Iv^DnSlL now mokes the multitude or TSC BBASIC Software 
auollabla for use under OS-9. Transfer your fauorlte BBSIC 
Program* to OS-9, compile them, Rssemble them, and 
QJQEKBQ] — usable, multi-precision, familiar Software ts 
running under your favorite Operating Systeml 

K — BASIC COS-9 or FIE9), Including the assembler 

$199.00 



Sculptor 



Micro era eo eaor Deemlommmmte Lte.'s Coaattcttl Amallcatloa Caaarator Prograa provides a FAST 
Conoercial Application Development cool unavailable Co Che 0S-9 and UnlPLEX Ueer before. Develop any 
Coaaerclal Application In 20X of the normal required time; gain eaey updating or customizing. PUIS, 
the Application can also be run on MS-DOS and Unix machines f Scalator handles Input validation, 
complex calculations, and exception conditions as well as the normal collecting, displaying, reporting, 
and updating information in an orderly fashion. Key fields to 160 bytes; unlimited record size; file 
size should be held to 17 million records. Utilisea ISAM File Structure and B-tree Key fllea foe rapid 
accees. Input and Output communication with other programs and files plue a library of ISAM routines 
for uee with C Programa. Run-time Included v/ the Development package; a compiled Application only 
needs a Run-time license. Additional charge for Networked Unite. Prices for Dmemlopmmnt pe^efm/lfear- 
Dlscounta available for purchases of 5 or mmre Run- time Packages. 



UolFLEX — $1450.00/337.00 

OS-* Lvl II — $9*5.00/200.00 



Unix — up to $2535/675 — Call for lnfof 
IBM PC o compete — $635.00/170.00 



BattcOf Toot Galea 

by Dale Puckttt — An excellent Book on using 05-g. Oriented 
towards using tne powerful eetfeof- riiiai a—lea Leaseefe, it also 
contains a )ot of good Information on atiftf OS-t In general, 

Normally (18.95 
Special MM only J if. 00 



A 



an Software 

TSC "FTex Utilities* «ts J7S.0O. 

TSC 'Sort Herge* was S75.0O. 

TSC "«aog Basic" was S75.00. 

TSC 'Extended Basic'' was S100.00. 

TSC "OeBug" „.* S7S.0O. 

TSC 'FLEX Diagnostics' was S7S.00. 

TSC "Text Processing System" was 17S.O0. 

TSC % 6ft000 Cross Asseaoler - wai S250.OO. 



w^Q 



Add It U.S.A. 

(.in. JJ-'O) 

A4* H S-iUtt Peril to 

LOX Air rvrvlfw 



^FL€X *s a IrademaA of Tecnrwcal Sy**e*r* Constjlraois 
"OS* it * '»a***mara of Moowsra 

III Pirn* 

68* Micro Journal 



V " ,„,r;r 'Ur SyFTlDARE 



..FTUIARE 



;lf? Toier <*ms-«tlejf St«f«p 4 Disk Sli 

September 85 



aamtlafaUlty 

r • PL£X, OCT - Colo 

O « OS-9, ODD - Colo 

- t*irLEX 

GCD » Color CcmfBJter 

CTY - Color Coaster 

Ml 



Mm only Sff.OO 

Mm only ttf .00 

Mm only Mf .00 

Mm only MO. 00 

Mm only S4f .00 

Mm only SM.00 

Mm only Mf.00 

Mm only Slft.tS 



r Core>>ter FIZX 
Computer 0&-9 



XAsk 
Tape 
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*£ TILIX 331 414 PVT ITH 

(615)842-4600 jfi 

%t« §Ai? 
% $80.8 

5900 Cassandra Smith Rd. 

Hixson. TN 37343 

lor Information 

C«H (615) 842-4601 

CoCo OS-9'" FLIX" 

SOFTUIARE 




RSSEmBLCRS 



m 



ASTRUK09 from Southeast Media 

6809" which requires the TSC 



A "Structured Assembler for the 
Assemmtor. r. ccf - $99.95 



A** 



bier for fSC — The FLEX 



Assembler. 
Special — CCF $35.00; F 150,00 



•SM U tended 6809 Macro Assembler from Lloyd I/O. — Provides local 
Ubelt, Motorola S-records, end Intel Hen records; XREF. Gene- 
rate OS-9 Memory modllUi under FLEX. FLEX. CCF, 05-9 $99.00 

ftelocntlaf Assembler w/Unalng loader froa TSC. — Use with many or 
the C and Pascal Compilers. F.CCF $150.00 

Old, by Crihn Trott fro* Vlmdr«*b MU» m/eiem* — Co-Iaaldent 
Editor and AaaaobLer', fait Interactive A. I. Programming for a ma 11 
to mtdlum-elaed Programs. P.CCP - $75.00 

XaWS ~ KACB w/ Croaa Aeeeabler for 6800/1/2/3/8 P. CCF - $98.00 

T88E CiOSS ASSEMBLERS from Comma tar System* Consul tea t* - 

Supports 1802/5, Z-80. 6800/1/2/ 3/8/11/KC11, 6804, 6805/HCOS/ 
146805. 6809/00/01, 6502 family, 8080/5. 8020/1/2/35/C35/39/ 
40/48/C48/49/C49/50/8M8/49. 8031/51/8751. and 68000 Systems. 
Assembler and Lilting formats seme it target CPU's format. 
Produce i am chine Independent Motorola S-Text. 

FLIX. CCF, 0S-9. UMFlEX each - $$0.00 

any 3 - $108.00 

the complete set «/ C S— ceo (except the 68000 Source) - $200.00 



XASM Cross Assemblers ror F1E1 from fempesemtt Ltd. — This set of 
6800/1/2/3/5/8, 6301. 6502, 8080/5. and 280 Cross Assemblers 
uses the familiar TSC Macro Assembler Command Une and Soruce 
Code format. Assembler options, etc., 1n providing code for the 
target CPU's. Complete set. FLEX only - $150.00 

CRASM9 from Lloyd I/O — 8-8lt Macro Cross Assembler with same 
features as OSM; cross-assemble to 6800/1/2/3/4/5/8/9/11, 6502, 
1802, 8048 Sers. 80/85. 2-8. 2-80, TMS-7000 sers. Supports the 
target chip's standard mnemonics and addressing modes. 

FLEX, OCF, OS-9 Full package — $199.00 



16. » from Llayd r/o 



r^Q 



Cross Assembler for the 41800. 

FLEX, CCF. OS-9 $289.00 



A44 IX l.t.A 

(•la. It. 501 

\A44 5X larfaca 'aralf* 

lot air r«r«icB 
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SUPER SLEUTH from Computer Systems Coat el teats — Interactive 
Disassembler; estremely POWERFUL! 01st File Binary/ ASCI! 
Examine/Change, Absolute or FULL Disassembly. XREF Generator, 



Libel "Name Changer", and Files of 

different Operating Sys teats 

Color Composer 

CCO <32K Req'd) ObJ. Only $49.00 

CCF. ObJ. Only $50.00 

CCF. w/Source $99.00 

CCO. ObJ. Only $50.00 



'Standard Label Names" for 



SS-50 Mt (All «/ A.L. 
F. ' $99.00 
U, $100.00 
0. $101.00 



oriAMlTE 4 from Computer Systems Ceater — Excellent standard 
"Batch Mode" 01sas sembler. Includes XREF Generator and 
"Standard label" Files. Special 05-9 options w/ 05-9 Version. 

CCF. ObJ. Only $100.00 CCO. Obi. Only $ 99.95 

F. a " $100.00 0. " * $150.00 

U, " " $300.00 



PBOGHHmminG|LHnGUHBES| 



PL/9 from mtaimab MLcr* tyotomm — By Craham Trott. A combination 
Idltor /Compiler/Debugger. Direct eource-to-objact compilation 
delivering feat, compact, ra-entrant, ROhVabla, PIC. 8 4 16-blt 
Intagara a 6-diglt Raal numbera for all real-world problem*. 
Direct cootrol o««r ALL Syetem raaaureae, lncludlog laterrupte. 
Compraheoelva library aupport; almpla Machine Code interface; 
■ tap-by-* tap tracer Cor loatant debugging. 589+ page Maoual 
with tutorial guide. P, CCP - 3198.88 

WHIMSICAL from VMattlcal Oevelopemats — Mow supports meal members. 

"Structured Programming" WITHOUT losing the Speed and Control of 
Assembly Language! Single-pass Compiler features unified, user- 
defined 1/0; produces ROMable Code; Procedures and Modules 
{including pre-complled Modules}; many "Types" up to 32 bit 
Integers, 6-dlflt teal Humbert, unlimited sized Arrays (vectors 
only); Interrupt handling; long Variable Names; Variable 
Initialization; Include directive; Conditional compiling; direct 
Code Insertion; control of the Stack Pointer; etc, Run-T1ee 
subroutines Inserted as called during compilation, normally 
produces 10* less code than PL/9. F and CCF - $195.00 

C Compiler from VI admit Micro festmms by James McCosh, Full C for 
FLEX except bit-fields. Including in Assembler. Requires the TSC 
Relocating Assembler if user desires to implement his own 
Libraries. F and CCF - $295.00 

C Compiler from latrol — Full C escept Doubles and Bit Fields, 
streamlined for the 6B09. Reliable Compiler; FAST, efficient 
Cade. More UHIX Compatible than most, 

F, CCF. and - $375.00 - $825.08 

PASCAL Compiler from luddeta — ISO Based P-Code Compiler. 

Oe signed especially for Microcomputer Systems. Allows linkage to 
Assembler Code for maximum flexibility. 

F and CCF 5" - $190.00 F I" - $205.00 

PA8CAL Camilla r fro* Ommcalmft (now Cmrtlfimd Hmftmrnra) — Por the 

PtOPIJflOiAL; ISO Baaed, Watlve Coda Conpilat. Primarily for 

Raal-Time and Procaaa Control applications. Powerful; Flexible. 

fteqitlraa a "Motorola Compatible" Kelo. Aanb. and Unking Loader. 

F and CCP « $425.08 tea Year Malnt. - $100.00 

R-BASIC from LLOTD I/O — A "Native Code" BASIC tammfler which Is 
now Fmlly TSC YBASIC compatible. The compiler compiles to 
Assembly Language Source Code. A HEM, strmmmtlmtd. Assembler Is 
now included allowing the assembly of LARGE Compiled K-BASIC 
Programs. Conditional assembly reduces Run- time package. 

FLEX, CCF. OS-9 Compiler (rttft Assembler - $199.08 



Handling, etc. for the 'Pro' 



'FlEx «t a irademav* oi Toeremcav Sytfemt Ccr>suman»a 
"OS8 * a trmdmrnmrm of tAapowave 

lit ft— 




from r map 1 1 ia mi Ltd. — Supports large subset of AHSK 
Level I COBOL with *any of the useful Level 2 features. Full 
FLEX File Structures. Including Random Files and the ability to 
process Keyed Filet. Segoent and link large programs at 
runtime* or implemented is a set of overlays. The System 
requires 56K and CAW be run with a single Disk System. 

FICX. CCF; mortally $199.00 
Special totraapattmrj Price (while In effect) — $99.t§ 

F0RT8 from S tea rat Electronic* — A CoCo FOtTB Programming 
Language. Tailored it tmm CmCol Supplied on Tape, transferable 
to eilfc. Hrltten in FAST ML. Many CoCo functions (Graphics, 
Sound, etc.). Includes »n Editor, Tree*}, etc. Provides CPU 



Q^rry Flag accessibility, Fast Task Multiplexing, Clean Interrupt 



0ta* Slam 



Excellent "Learning" tooll 

Color Computer OmVY • $58.H 

ammLLtOaJty LmomMtm — 

P m ri£X, OCy • CoJ^r Camf%iter FLEX 

O * 06-9* COD ■ Color Cannwter OB-9 

- UnlFLEX 

OTD ■ Color Oonputer We* 

CCT - CoJor Cceaputer Tape 
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ft* sic 09 IBef from Southeast Media — This IttlcOl trvsi mtfwreece 
utility Is i Basic09 Program which will produce I 'pretty 
printed" lltlfng aflh each line numbered, followed by • complete 
cross referenced listing of all variables, external procedures, 
and line numbers ceiled. Also Includes a Program List Utility 
which outputs a fast "pretty printed" listing with line numbers. 
Requires Bat1c09 or BunB. 

4 CCO obj. only -- $39.9$; w/ Source - J7f .tS 
tmddata PASCAL uTHJTIB {fta^virea LOCBatTA Parcel m )) 
ItO — produca a Croaa Rafaraoea Uattng of any te*t; orlontad to 

Piictl Source . 
IftCLOM — Includa othar file* In a Sourca Tast, Including Binary; 

unliaitad naitlng capabilities 
PIOPIIZK — provide* an Indented, Kuabarad. 'StructograaT of a 
Peacel Sourca Taut Plla; viaw t ha ovarell atructurc of larga 
programa, program Intagrttr, ate. Supplied In Pascal Sourca 
Code; rtqutrae coapllattom 
P, CCP — EACI Utility 5* - $40.00, 6" - $50.00 

QUI from Southeast Media -- A UntFUI "•basic" De-Compiler. Re- 
create a Source listing froa UnlFlEX Cornelled battc Procram*. 
Works w/ ALL Versions of 6809 OnlFLCX basic. - S 719. 95 

FULL SCtKl FOOJB 0ISP1AY from Cammmter Sys teen CMnltlaU - TS£ 
Extended BASIC program supports any Serial Terminal with Cursor 
Control or Memory-Mapped Yldeo 01 splays; substantially ea tends 
the capabilities of the Program Designer by providing a table- 
driven method of describing and using Full Screen 01 splays. 

F ind CCP, - $25.00, w/ Sourca - $50.00 



DISUTILITIES 



OS-* VOItk from Southeast Ned la -- For Level 1 onty. Use the 
tx tended Memory capability of your SVTPC or Cf-U CPU card (or 
simitar format OAT) for FAST Program Compiles. Ott execution, 
high speed Inter-process communications (without pipe buffers), 
etc. - SAVI that System Memory. Virtual Disk size Is variable In 
«K Increments up to 960K, Some Assembly Required. 
- Level ! OrntT — OS-9 obJ. only - IJi.tS; w/ Source - S149.9S 

0-F from Semteetst Media — Written In OASICOf (eltb Source), 
includes: BCFOfJUT. a BASIC09 Program that reformats a chosen 
aaount of an OS-9 disk to FIO Format so It can be used normally 
by FLEX: and FLEX, a 8ASIC09 Program that does the actual road 
or write function to the special 0-F Transfer 01st; user-friendly 
menu driven. Read the FLEX Directory, Delete FLEX Flies. Copy 
both directions* etc. FLEX users use the special disk Just like 
**y other FLEX disk. - S79.9S 

COPTMDLT from Seat beast Media — Copy LARK Disks to several 
smaller disks. FLEX utilities alio* the backup of ANY sin dial 
to any SMALLER size diskettes (Hard Ofsk to floppies. 6* to 5\ 
etc.) by simply Inserting diskettes as requested by CpffMmVT. 
No fooling with directory deletions, etc. COPTPWLT.CMD 
understands normal "copy" synta« and keeps up with files copied 
by maintaining directories for both host and receiving disk 
system. Also includes mmSV.CMft to download any size "random" 
type file; tClTOlC.CHt to restructure copied "rand om" f iles for 
copying, or recopylng back to clwj host system; •*& FBRImT.Om) 
as a "bonus* utility that "relinks" the free chain of floppy or 
hard disk, eliminating fragmentation. 

Completely do c ame a ted As seemly U»f*aea> S em ra files 1ec laded. 

ALL 4 Programs (FLEX. 8" or 5") $99. M 

COPYCAT from Lmctdatd — Pascal BUT required. Allows reading TSC 
Htn1-FLEX, SSS 00S68, and Digital Research CP/N Disks while 
operating under FLEX 1.0. FLEX ?,0, or FLEX 9.0 with 6000 or 
6809 Systems. COPYCAT will not perform miracles, but. between 
the program and the manual, you stand a good chance of 
accomplishing a transfer. Also Includes some Utilities to help 
out. Programs supplied in Modeler Secret Cede (Assembly 
Language) to help solve unusual problems. 

F and CCF S" - Stt.00 F 0" - $41.00 
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(615)842-4600 « 

aJptA IfiiF 

5900 Cassandra Smith Rd. 
Hixson, TN 37343 

for information 
Cdll (615) 642-4601 

CoCo OS-9" FLIX" 

SOFTWARE 



PLIX olfC 0TIL1T1E1 fro* earnest a r myeteaai oamamlteete — Bight (I) 
d if fa rant Aaeewbly Languaga (W Sourca Code) MX t* lilt la • for 
a vary PLEX Uaan Toolbosr Oeay a Plla wit h CBC trrermt feel Olik 
for trrori; Caaauurv two atafcai a fait Otei. BaaJka ai prograo; Belt 
ties, factara; LLaaariaa pr*a~CmaA» on Cha tMik; print Mfk 
ldeatlflcetlea; and fare and BePlaca tha Dlak OtraCtory (in 
•oread ordar). — PLtXl — tan XlASIC Profraaa Including* A 
mAStC Hmmiiiir with EXTlAa o«*r "ICJftjr Ukt cheek for mttflng 
labal daflolttona, prociim Otak to Olak Inataed of In Htaory, 
ate. Othar programa Comvara t Xer|m r or Cmaarala OpdaCaa 
bataaen two BASK Prograai. chaek BASIC Mmic« lameeve, 
compara tee iinaiiial filoe. and * Programa for establishing a 
Kaatar Blttctirj of aavaral Dlaka, add aortlng, aalactlng, 
updatlag. and printing paginated llatlnga of theae fllai. A 
BASIC Crata-Bafaraaca Progrea, writtaa in A •••ably Laaguaga. 
vhlch provldaa an X-Raf Uaelag of tha Varlablaa aod Baaarved 
Horde 10 TIC B4BIC, OAnE» and rllUBVUift aASlC Prograaa. 

ALL UtUltUa laftmiff Ba a* urn (either B451C or A.L. Source Coda). 

t and CCP - $30.00 

BUfaT BUlitlee QmXf for BadPLKZ — 830.00 



;communiCHTions][ 



CMOOCN Telectmmamlcatloas Prefram from Cempmtmr Systems 

Coeialuats. tec. — Menu- Driven; supports Ouab- Terminal Node. 
Upload and Download In non-protocol mode, and the CP/N X©dem7* 
Chris ten sen protocol mode to enable communication capabilities 
for almost any requirement, written in °C°. 

FL£X. CCF. OS-9. UMFlK; with complete Source - $100.00 

without Source - SfiO.OQ 

IDATA from Seethes ft Media — A COBJHJglCATlOB Pacsage for trie 
UnlFlEX Operating System. Use with CP/N. Nsln Frames, other 
UnlFLtX Systems, etc. Verifies Transmission using checksum or 
CRC; Re-Trantm1ts bid blocks, etc. U - SIff.ff 



\MiM\ 



UPIIR - 680* Chess Program from Seejtmtast Ntela — Reoulres FLEX 
and Displays on Bee type Terminal. Features: Four levels of 
play. Swap side. Point scoring systea. Two display boards. 
Change skill level. Solve Checkmate problems In t-Z-3-4 ewes. 
Make move and swap sides. Play white or black, this Is one of 
the stroeaest CHESS programs running on any microcomputer. 
estimated USCF Rating 1600* (better than most 'ctub* players at 
higher levels). F *nA C9F - $70. OS 
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5900 Cassandra Smith Rd. 

Hixson. IN 37343 

for information 

Call <ei&) 642-4601 

CoCo OS-9'" FitX" 

SOFTWARE 
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SPUL1 "Computer Dictionary" from SeutAeest Nedle — OTO 120*000 
wordtl Loot up • meed from within your Editor or Word Prpcessor 
(uUh the SPK.CJIO Utility which operates 1n the FLEX UCS), Or 
check tnd update the Text after entry; ADO HORDS to the 
Dictionary, "flag" questionable words in the Text, "View a word 
in context" before changing or ignoring, etc, SPELLS first 
checks a "Common Word Dictionary", then the nomal Dictionary, 
then a "Personal Word List*, and finally, any "Special Word List" 
you nay have specified. 5PELII also allows the use of Snail Mil 
Storage systems. 

F and CCF - 1129 .98 






^jHccounTinG|| | 



XDMS from Westchester Applied •milmts* &t teats -- Powerful D8MS; 

H.L. program will work on a stBfllw timed I" dlft, yet 1s F-A-S-T. 

Supports Relational, Sequential, Hierarchical, and Random Access 

File Structure*; has Virtual Kemory capabilities for Cleat Data 

Bases. XDHS Lmtml I provides an "entry level* System for defining 

a Data Base, entering and changing the Data, and producing 

Reports. IOHS Ltvel It adds the POWERFUL *t£ KftATT facility 

with an English Language Contend Structure for Manipulating the 

Data to create new File Structures. Sort. Select, Calculate, 

etc. XDMS Level III adds special "Utilities* which provide 

additional ease In setting up a Data Oase. such as copying old 

data Into new Data Structures, changing System Parameters, etc, 

XSPB System Haemal - SM.tS IPC LV1 I - F ft CCF - J129.W 

XD6 LV1 n - F a CCF - U99.9S 

XDG Ul HI - F a CCF - S209.9S 

uanTTTE PACtAfitS — Cr«at PlAlns Gemmate? Co. and tMierasI Data 
Research. Inc. both have Data 8a se and Business Packages written 
In TSC XBASIC for Fid, CoC* 00. and IMFtH. 



SCRED1T0R III from tflsdrtsa Micro Systems -- Powerful Screen- 
Oriented Editor/word Processor. Almost SO different commands; 
over 300 pages of Documentation with Tutorial. Features Multi- 
Column display and editing, "decimal align" columns (AND add them 
up automatically), multiple keystroke macros, even/odd page 
headers and footers. Imbedded printer control codes, all 
justifications, "help" support, store comman command series on 
disk, etc. Use supplied "set-ups", or remap the keyboard to 
your needs. Eicept for proportional printing, this package will 
00 IT AlLi 

6600 or 6609 FLEX or SS8 DOS, OS-9 - $175.00 

ITTLO-OtAPl from firmmt Flmlme Cmmpmter Cm. — A fuU-aermm'o 
o rlemte4 wOtB PtOCUSOR — (ueee the 51 x 24 Meplay kn«ai oo 
CoCo PLIl/STAI-DOS, or P8J Wordpek). Full acreen dleplay and 
odlelnf; « up port* tb* Delay Vheel proportional prlutere. 

■ men — > CCP amd COO - Iff .93, F or O - fjTl.W . U - Mtt.95 

• TTLO-ifill trow. Croat Plmlmo Cmmpmcmr Cm. — Pa it Computer 

Otettooaty. Complaint i Stylograph. 
MT/ flM > CC? amd COO - $fr9.95, P or - ff9,fV. - ? U9,91 



from Ct-met tlaumm *■■ 
*Foief Uttere, Frlmt multiple 



■toe Cm. — Merge Mailing Llet to 
Plle-a, etc.. through Stylo. 



■Bf "Ml > CCP and CCO - I9f .95, P or - ffl.ti. 



ItfUtt 



tTOaWA X Graph ♦ Spell ♦ Herg« Pmekmgm ftaalMI 

- P or - $929.93. & - I34f.93 

4*ST from Seat Nest Media — Text Formatter developed by Ron 
Anderson; for Dot Matrix Printers, provides many unique features. 
Output "Formatted" Text to the Display. Use the FPUmT.CJm) 
supplied for producing multiple copies of the "Formatted" Text on 
the Printer INCLUDING IMBE00E0 PRINTER COMMANDS (very useful at 
other times also, and wortn the price of the program by Itself). 
"frier tamff tv emte" for adapting to other Printers (comes set up 
for Epson MX-BO with Graftrax}; up to ten (10) Imbedded "Printer 
Control Commands". Compensates for a "Double Width" printed 
line. Include* the normal line width* mergln, Indent, paragraph, 
space, vertical skip lines, page length, page numbering, 
centering, fill, Justification, etc. Use with A*? Editor. 
Supplied with "Structured Source" (Wlndrush PL/9); easy to see 
the flow of the program. 

F and CCF - M9.9S 
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TABULA RASA SPREADSHEET free Computer Systems tmmsultamt* — 

TABULA RASA 1s similar to DESKTOP/ PI AH; provides use of tabular 
computation schemes used for analysis of business, sales, and 
economic conditions. Menu-driven; extensive re port- gene rat ton 
capabilities. Requires TSCs U Passed BASIC. 

F and CCP, U - $50.00, •/ Sourca - $100.00 



OTHACALC from Computer Sys 

for the 6809. 

F and SPECIAL CCF - $200,00, 



Caster — Electronic Spread Sheet 
tf - 1395.00 



FULL SCIEII ItTCVTOKT/XXP from Cemmeter interns Cemsel teams — Use 

the Full Screen Inventory System/Materials tequlrement Planning 
for maintaining Inventories. Keeps Item field file In 
alphabetical order for easier Inquiry, Locate and/or print 
records matching partial or complete Item, description, vendor, 
or attributes; find backorder or below stock levels. Print-outs 
In Item or vendor order. MRP capability for the maintenance and 
analysis of Hierarchical assemblies of Items In the fffventory 
file. Requires TSCs Utememd IASIC. 

P mod CCP. I? - $30.00, •/ Source - 9100.00 

FULL SCIEEI MAILI1C LIST from Cempeter Systasmi Ceeiel taste - The 
Full Screen Mailing List System provides a means of maintaining 
simple mailing lists. Locate all records matching on partial or 
complete name, city, state, rip. or attributes for Listings or 
Labels, etc. Requires TSCs Extern*** IASIC. 

P and CCP, D - $30.00, •/ Source ~ 9100.00 

OIET-TRAC Forecaster from Southeast Media --An XBASIC program 
that plans a diet In terms of either calories and percentage of 
carbohydrates, proteins and fats (C P 65} or grams of 
Carbohydrate. Protein and Fat food exchanges of each of the six 
basic food groups (vegetable, bread, meat, skim milk, fruit and 
fat) for a specific Individual. Sax, Aoe, Height, Present weight, 
Frame Size, Activity level and lata! Metabolic Rate for normal 
Individual are taken Into account. Ideal weight and sustaining 
calories for any weight of the above Individual are calculated. 
Provides number of days and dally calendar after weight goal and 
calorie plan 1s determined. 

F - S99.9S. U - $19.95 



(•II. •*. JO) 



"FLEX is a iradmmtA ol Ttctwteml Systems Coosuaenis 
"OSS « a irariemer* ol MaTomave 

III PldJmml 



r«ia»| 



CoCo o**~ »ta»-' 



aaandra 9miln Rd 
Mi.aon, TN 3734) 
(6t5) 642-460 t 



:|ff Tomr (^mrerviai 

September 85 



« Ufa* SIJ 



Jej»llmt*lJey 

¥ - FLEX, 09 » Color Comeaiter PLO 
O ■ 06-9, CCO - Color Coatfuter QB-S 

o - uniruDt 

OCD ■ Color Compjter DisJi 
OCT - Color Computer Tape 

III 

'68* Mterc Journal 



■ aicropracaeeor type 

* taoo • uo2 • isoe • «eo9 < 



t»on ■ 



tlaing epeclfUetior. apaboio 
deecrlptlo* end Banning l«» teat 



• eoln 



•»*••• •••••••••••••«••••! 



1 aeleCt 
' logic 



!"« 



TAIL! 4.) 

•*»••••••• **•• ••••*••••••••••••• aeee e •••••••••••a 

data but. ib^ interface apace. • 

4ih to U^ • due ta U... * 



'i". *An*d i*n latched •I'Ttii data l-ichrd * 

*ur riculc<i iud tiat**up holds valla writ* * 
*Oa tha local b»a a *data on ih* local few** 
•am. of t aftar "E""a aln. of t^^ after * 

•fall adgW *"".* fall «4iWv 

•Taflpharala ara ree/d+ParlpharalB era raq 1 d* 
•to hold valid raeti no atOrfl/latch up * 

■4*ta am fh* (Jebal *vrlt# data within i ' 
■dace ha a aln r of t- *+* 1pw -» after "I** faff* 
'after «ha f*U *dtt" •adiafti . * 

*»f "r-V j uhicH la * L • 

•Mian the latch latch-* a 

•'< ■ ' * raad :*:» * • 






•5as : 



The coabinatloee of raad, and wf IE* but tmtf latch aalact logic 
i add *J7>»*3»« have tHa aaaa reepeetlae paraaetere previously deetrlbad. 



;<2n„ Jain. Jciri, 

K c«t. l c2f2* Uttt 

* C AVJ7 

l »ft ' l ui ' Hn " 

*«f2 " <U2 ' C E« ' 
• -- a t • 

.... - . t«" . 

;»i ; j™ ; — ; 

Erl v Erl 

.... ■ .... » B ■ 

t . .... ♦ t * 2 • 

CW* OKA 

l bSg * <«SA ' '(HI ' 



c c2f2 

1 B}1* 
*Afl 

c *Ul 



•*«.«• • — 



■>:«•: 






*• • •• aaaa • *• •• * ■ »#* « * » *#•* a a a *. 
Bali*, ' up ■ aelact ■ U ' 

1 • trpa » logic • 
■«»•«•••■•♦•••»•«••••»♦•••••»» 

2 • fcWMi • C *'2U i 



tttlliittlltiilttttitliilMlilillttttlllitllttl 

* data bin, and Intarfect dpacd. 



'244 ♦Aaad data raal tlaa: *VrHe data caal tla* 
*wp ra^ulrva taad data*vp Itoldt valid vrlta 
•oo tha local turn a 'data oa tfM Local ova 1 
•alaxf «_,. aftaf M l"*a als. oC t afcar 

'(•II ad«i«0 L . •-!- fail ad|S<y . 

• rvciphoraia ar« raq'a'foriphtrala art raVd 



•to *»ld valid raad 
*dat* on tha global 
•data dub a ilD.ol 
rt nkia **«■* c Tv* f aii A 

nIEI 1 of "r-v. 



• to atora/latch i>p 
•writ* data within 
•tnuu aflat ''f** fall 

. € oTr*v 

•A* lace logic la raq'd 



■»«l«ct logic l« ra<> r d»to laavta th« Tt*4 
•to inau.ta vp tba raad'data btiffar to ba 
•data apaca. to ba 'dlaabltd b*lora M E* 

•obavad auch that t J .tf«* rtM " , \ l *T leaurlng 
*--t4*«Wi a *Ci.aM «n- **«— Vn lo *• l,M 
utl io avoid 
contancloR 
•vlth a poaaibla 

• * a a a MoLloviag vrlta eye la 

* * • * • •oant Id ■♦a.utoco. 

»IOM<ttii« * «« «» t» »MMMMM«MtlM«l*»lllttM»»*tt 



aiW. Vf;l l prc^-a^ -tklfi^ 1 
read cycla rao,ulr«- *data bud 



•read cyeli 
**tnc«. 



L* 





■"OOQ 


" l t>co 


.... a » 

Ull 


l uu 


* c ull 


' C UI2 


' C U12 


' 1 U12 


C U2l 


' l U2l 


"Ml 


' C U22 


' 1 U2J 


' ^22 


.... a e 


'^13 


• t 
111 




#C V i4 


* C U»4 


a 


# l Uli 


" l uis 


'vAafWi 




'fill 






*nu 






C UID1 







Hocai: Ail apodal ayabola ara io aithar SlRnaclca Corporation, or 
Hoeorola Saalconductor ProdMcta lac. dotation. 

Vfiara ailnlauaj propatiatioo dalaya ara req'd; If tha apaclf- 
icAiicm la n oe RJvao In data ahaaea laplaxdtatad ; daauttr t fl •• 
ch* ^Lfiiauai. 

V, (logic 0) for lnpucailaaa than or aquai CO 0.7v. 
(logic 0) (ot ouCP*»ca;iaaa chao or aqual to 0.7v. 
{logic 0) lor up in?vica;laaa Chan or aqwal Co 0.4v. 
V H (logic 1) for lopwta;graai«r chafl or aqual eo 2.4v. 
(logic i> for oucpuea;graacar Chan or aqual co 2.4v, 
(logic i> for up lapuca;gt«atar cMo. or aqual co V -O.bv. 
1h* '37 J lacch auac have a oil n lama c. raq'd hold t in* 
afcar lacch anabla "£" fall adga-V . 



v yAW 
*W1 

B wu 

1 UIDJ 

'ucu 

*«« 

k UH2 
*U*UJ 



1 aaactiy 6 tlata. * 

• aio, fail tlao of C2 clock freat V to V • 

> aaa. fall tla* of c 2 clotk Crow wj to ¥^. • 

■ «a«< procaooora clock itn froa "T" ttli * 
» adga-V to "Q" rl«a adga g^aatar than V . » 

• aln, fall claw or aUrnprocaaaor "E" click ► 

■ fro» V «o V 

» aavs. f¥ll tike of alcroprocataor "E" tlocV * 

' fr0 * !ia- to *L r * 

1 at*. *V* t loft rial t l>< ito» y co Vy. • 

1 mitt, Procaaaor *lo«Ji tiaw froa ^t^ fail * 

» adga-V Co "Q* rill adga trait «r than v . • 

» oin. "r*. or ♦*«'' clock Uv t t»-»*V. . L • 

' ala, "E", or M c2 M clock rlaa tla* ffoa V. a 

' t0 V M' * 

■ a*a, "Q M clock rlaa tlaar fro* V to V . • 

1 aif>. ravul c ad procaaadr r«Vd data hold* a 

> tla* aftar "<** or M f* clock fall adga }**a* 
' tha© V , • 

> atlfi. aicroprotaaaor raq'd raad data eecup » 
1 tlaw 6a f o r a T. or °<2 M fall adga la*« • 

» cha» v , • 

• kaji. fill tlaa Of "00r' in»«t fall adga a 

alfi. cloK Claa. lev of <2*V. ctll Cl tilt ■ 

• adga gr later Cbaa v • 
» ala. ptocaaaor "A/kr villd (Ibm bafora '^Q" • 

• rlaa graatar tfeaa V . • 

• Jltf liiMfi&.i.i.ori gvarancaad valid i/u • 

• bold tla* aftar M E*\ or "c2 H fall adga-V, 

• a(a. pfoL«i«ori "E" iQtr e lm duration 

• bu. lov tla* duration of "c2"-V fro* "tl"» 

■ -W co **<2" rlaa adga graatar thin V. < * 
1 aln. ■icroproc'aBor gMatantaad valid write * 

• data bold claw aftar '>" fall odgi-V • 
1 •»!. aicroprocaaaor ivaraocaad «rita data • 

• delay tla* after "0." riea ad|e-*V . * 

> al*. ul output dlaabli delay to output a * 

• trl-atait- (lowgai of 11 t., • 
» tlaM delay ■peciric»Clo^a T r> *•* A* M * * 

■ BAK- Ul output diaabla delay to outP^ta * 

> trl-atatv.(blghaac af Ul t . and t * 
» tLaa dalay dPac if (<at looi, ) * 

■ ala. Ul propagatlo* delay ig/clf Itatioo « 

> freat VI Input fell edge laia tha/* V to * 

> output rlaa edge laaa than v , * 

■ a>4h. U2 propagatlcw d*L*y ar*c if icatlon * 

■ Iroa \>2 input fall ad r ^ Iobb (han v (< to ■ 
' outpvt-V,. • 

> ala. tt Sutputo invalid froa Ul da-aelecc. ■ 
1 (iovaac of t , aad C-,., froa CE rlaa * 

> adga greater Etta* ¥ L * 
' ala. ret'd Ul valid raad data Mtvp tla* # 
1 bafora Ul output enable. * 

• aak. Ul output ««abl* delay. {*•*. of t M . ■ 

> . and t^^ dtley apa*Jflcotioa».> rKL • 

• ala. anEbfa propagation delay af V^.or U B «* 

> to out put • «alld. • 
k BtH. dtaabla propagatlee) delay of U . co * 

1 output a Crl-ataCe. a 

k aaa. propagation delay froa U«. input to * 

• output. • 
» ailo. able propagation delay of U_ froa • 

> laput to output. flowaot of v_ »la, t„, * 

• ' >ad *ttM 4mlm 7 ■* m lflcoclc«a.> L « 
1 a*n. Alltfla propagation dalay of u„ to * 

1 outpvta trl-ataCe.(highaet of U atfi. t^» 

. aad t-.- daiay aeacif lc«t loniVT * 

> ala. uj"fropngatioo delay froa tapvC-V • 
' Co outNfV .(aln. !„„ tlaa delay aPacTf* • 

> lCetlAO.) L rl,U 

» bbk. U M propagation delay froa lnput'V • 

to awtPdt«V 1 .(aaa. t M1 tlaa delay aaatlf- • 
» iratioo.) l r " L • 

' aln. i propagatloa delay fro* input fall ♦ 
' W|fv't« output Tall adga Immm than V . • 

> (aln. E tlaa delay B pacification.) L • 
1 ■**' V-T^autaut dlaable propagation delay * 
» to DutPSeB trl-etete.(lowaet of U t . a 

> aad i H1 tlaa delay anncifltitlonoTI • 

> ala. K* praaagntlaa delay apac 1 f Lea t Ion • 
1 fro* iflpUt fall adga-V to output Tlaa Bd|a* 

• -v >(*jia. % tlaa i*r*y aaoclfitatlon^ ■ 

> alt. I' oufpOt dlaable propagation dalay • 
' l0 u gp ** t * vt * tri-atate.<lo*aac of U • 
' t PL2 * * nd L rtti tXm * * tl " B P«iiificatl8na,>" 

> bIoT U pTopalatloo dalay (to* input rail * 
k tdir-v, co output (all edge laaa tha* V . • 

(ala. F tlaa delay •pacification.) • 

> aaa. U _ , fropagetion delay froa Input fail * 
' adi4«v"'to output roll adga loaa than V . - 
» (mx. X tlaa daley ■ pacific at ion.) 



<■— ». pui »»"— — — • — 7 ■ r"* i>ti.»»»vm i - 

' ai *< ^ fropagetioo daiay apoclf Uatiaa*. • 

' (lowatF of t , and <„.. (la* dalay apa f - • 

l . r . ^^ j »r Ln mL . 

> lllcatlvnar) • 

' ■**' \* propagation delay apocir Itatioo a. * 

> (lovaaF o r t m end t-^., tlaa dalay apee- * 
' »flcatia*A.r LM ^ L 

> Baa. U . propagation dalay apeel ricat (oa * 
' froa input fall edg«*V to Output rlae edge* 
* »V (aaa. t tlaa MnTaY epocif Itatloa.) * 

> But. U outrut eoeble proPagecion daley * 
» opacification froa iqPVt to valid outPut. • 
' (>vlgba«t of c aod t__^ output aoable * 
' tlaa.) " X r2M ■ 



'69' fvtoo Joum«U 



Sdjptember 0$ 



36 



Bit Bucket 

COBOL Name 

& Address System 

by Mike Martin 
Continued fro« last nonth. 

IDENTIFICATION DIVISION. 
PROGRAM- ID. NAHP003B. 
EKVIRONHENT D1V1SON. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT NAME- FILE ASS1CN TO "WNAMD0OO1DAT" 
ACCESS NODE IS RANDOM 
FILE STATUS IS NAME-STAT. 
DATA D1VISON. 
FILE SECTION. 
PD NAM&-FILI. 
01 NAME-RECORD PIC X(126). 
WORKING- STORAGE SECTION. 
COPY M WNAMCDINQCBL H . 

COPY "WWPCCDT00C8L". 

COPY "WNAHCDNSTCBL". 
PROCEDURE DIVISION. 
C100-CLEAR-PIILDS SECTION. 

HOVE "I" TO 0V-SW1TCH. 

MOVE 5 TO X. 

MOVE 13 TO Y. 

PERFORM Z110-ACA THRU ZllOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 20 TIMES. 

MOVE 45 TO Y. 

PERFORM Z110-ACA THRU Z110X. 

PERFORM C200-DISPLAY-DASH THRU C200X 15 TIMES. 

MOVE 7 TO X. 

MOVE 13 TO Y. 

PERFORM Z110-ACA THRU Z110X. 

PERFORM C200-DISPLAY-DASH THRU C200X 20 TIMES. 

MOVE 45 TO Y. 

PERFORM Z110-ACA THRU Z110X. 

PERFORM C200-DISPLAY-DASH THRU C200X 20 TIMES. 

HOVE 9 TO X. 

MOVE 13 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM C200-DISPLAY-UASH THRU C200X 10 TIMES. 

HOVE 31 TO Y. 

PERFORM ZilO-ACA THRU ZllOX. 

PERFORM C200-DISPUAY-DASH THRU C200X 2 TIMES. 

MOVE 39 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 9 TIMES. 

HOVE 54 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM C200-OISPLAY-OASH THRU C200X 10 TIMES. 

MOVE 12 TO Y. 

MOVE 11 TO X. 

PERFORM C300 -CLEAR-FLAGS THRU C300X 4 TIMES. 

HOVE 16 TO X. 

HOVE 1 TO T. 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM Z020-E0L-ERASE THRU Z020X. 

HOVE 5 TO X. 

HOVE 45 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

CALL "NAHP003A" OVERLAY. 
C100X. EXIT. 
C200-DISPLAY-DASH. 

DISPLAY 1-0 " " UPON CONSOLE. 
C200X. EXIT. 
C300-CLIAR-FLACS. 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM C200-D1SPLAY-DASH THRU C200X. 

ADO 1 TO X. 
C300X. EXIT. 
ZOOO-TERMINAL-CONTROL SECTION. 



Z001-0ELAY. 

ADD 1 TO DELAY-VAR. 
Z001X. EXIT. 
Z020-E0L-ERASE. 

DISPLAY 1-0 S05 UPON CONSOLE. 
MOVE ZEROES TO DELAY-VAR. 
PERFORM Z001-DELAY THRU Z001X 
UNTIL DELAY-VAR > 600. 
Z020X. EXIT. 
ZllO-ACA. 

DISPLAY 1-0 $1B $3D 

ACA-ADDRESS (X) ACA- ADDRESS <Y) 
UPON CONSOLE. 
ZllOX. EXIT. 



IDENTIFICATION DIVISION. 
PR OCR AH- ID. NAHP0004. 
ENVIRONMENT OIVISON. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT NAME-FILE ASS1CN TO "WNAKD00010AT" 
ACCESS IS RANDOM 
FILE STATUS IS NAME-STAT. 
DATA OIVISON. 
FILE SECTION. 
FO NAME-FILE. 
01 NAME-RECORD PIC X(126). 
W0RK1 NC-STORAGE SECT ION . 

COPY "WNAMCDUPDCBL". 

COPY "WWPCCDTOOCBL". 

COPY "WNAMCDMSTCBL". 
PROCEDURE DIVISION. 

COPY "WWPCCPT01CBL". 

HOVE 1 TO Y. 

HOVE 5 TO X. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "FIRST NAME:" 
UPON CONSOLE. 

MOVE 34 TO I. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "LAST NAME;" 
UPON CONSOLE. 

MOVE 7 10 X. 

HOVE 1 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "ADDRESS 1 t" 
UPON CONSOLE. 

MOVE 34 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "ADDRESS 2t" 
UPON CONSOLE. 

HOVE 9 TO X. 

HOVE 1 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "CITY:" UPON CONSOLE. 

HOVE 24 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "STATE:" UPON CONSOLE. 

HOVE 34 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 N ZIP:" UPON CONSOLE. 

HOVE 49 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "TEL: M UPON CONSOLE. 

HOVE 11 TO X. 

MOVE 2 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "XHAS:* UPON CONSOLE. 

HOVE 12 TO X. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "PARTY:" UPON CONSOLE. 

HOVE 13 TO X. 

PERFORH ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "BUSINESS:" UPON CONSOLE. 

MOVE 14 TO X. 

PERFORH ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "BILL:" UPON CONSOLE. 

OPEN 1-0 NAME-FILE. 

CALL * 1 NAHP004B" OVERLAY. 

COPY "WUFCCPTOOCBL" . 
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IDENTIFICATION DIVISION. 
P IOC RAM- ID. HAMPO04A. 
ENVIRONMENT D1V1SON. 
INPUT-OUTPUT SECTION. 
PILE-CONTROL. 

SELECT MAHE-FILE ASSIGN TO "UNAHDOOOl DAT- 
ACCESS MODE IS RANDOM 
FILE STATUS IS NAHE-STAT. 
DATA D1VISON. 
PILE SECTION. 
FO NAME-PILE. 
01 MAKE-RECORD PIC X(U6). 
WORKING-STORAGE SECTION. 
COPY "WMAMCDUPOCBL". 
COPY "WVPCOm)0CBL H . 
COPY "WHAHCWlSTCBL". 
PROCEDURE DIVISION. 
AOOO-UPDATE- CONTROL SSCTION. 

ACCEPT US-LAST-KAHE FROM CONSOLE. 
IP WS-LAST-HAME - H END H 
CLOSE NAME-PILE 
CALL "NAHP0001" CHAIN. 
HOVE ZERO TO WS-KEC-NO. 
PERFORM A100-UPDATE-L00P THRU A100X 

ONTIL yS-HAR-LAST-NAME ■ "l". 
HOVE SPACES TO WS-MAME-ADDRESS-RECORD. 
CALL M NAMP004R M OVERLAY. 
AOOOX. EXIT. 

A100-UPDATE-LOOP SECTION. 
HOVE TO EOP-FLAC. 
PERFORM R100-READ THRU R100X 

VARYING WS-REC-NO FROM WS-REC-NO BY 1 
UNTIL WS-NAR-LAST-NAHE » MS-LAST-NAME. 
If E0F-F1AG - 1 
GO TO A100X. 
PERFORM B00O-D1SPLAY THRU BODOX. 
A101-ASK. 

HOVE 16 TO X. 

MOVE 1 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

PERFORM Z020-E0L-ERASE THRU Z020X. 

DISPLAY 1-0 "Enter *u*-upd«te *D*-delete *C* continue 

UPON C0NS01.E. 
ACCEPT WS-RESPONSE FROM CONSOLE. 
IF WS-RESPONSE - "C" 

HOVE SPACES TO WS-NAR-UST-NAME 
GO TO A100X. 
IP WS-RESPONSE - *&* 

HOVE ALL SPACES TO WS-NANE-ADDRESS-RECORD 
HOVE "Q u TO WS-MAR-EOR 
ELSE 

IF WS-RESPONSE - "U" 

PERFORM BIOO-NEU'DATA THRU B199X 
ELSE 

CO TO A101-ASK. 
WRITE NAME-RECORD FROM WS-NAHE-AODRESS-RECORD. 
MOVE 16 TO X. 
HOVE 1 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 
PEBFORM Z020-E0L-ESASE THRU Z020X. 
DISPLAY NO "Enter 'S' to continue search, 'E' to eod 

UFON CONSOLE. 
ACCEPT US-RESPONSE FROM CONSOLE. 
IP WS-RESPONSE - "£" 
HOVE 1 TO EOF-FJAG 
HOVE "!" TO WS-MAR-LAST-NAME 
GO TO A100X. 
ADD 1 TO WS-REC-NO. 
A100X. EXIT. 
BOOO-DISPUY SECT10M. 
MOVE 5 TO X. 
HOVE 13 TO t. 

PERFORM Z110-ACA THRU ZUOX. 
DISPLAY 1-0 WS-MAR-FIRST-NAME UPON CONSOLE. 
HOVE 4> TO T. 

PERFORM ZUO-ACA THRO ZUOX. 
DISPLAY 1-0 US-MAK-LAST-RAME UPON CONSOLE. 
HOVE 7 TO I. 
HOVE 13 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 
DISPIAT 1-0 WS-XAR-LI1TE1 UPON CONSOLE. 



MOVE 45 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

DISPLAY 1-0 WS-NAR-LINE2 UPON CONSOLE. 

MOVE 9 TO X. 

MOVE 13 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

D1SP1AY 1-0 WS-NAR-CITY UPON CONSOLE. 

MOVE 3i TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

DISPLAY 1-0 WS-NAR-STATE UPON CONSOLE. 

HOVE 39 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

DISPLAY 1-0 WS-NAR-ZIP UPON CONSOLE. 

MOVE S4 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

DISPLAY 1-0 WS-NAR-PHONE UPON CONSOLE. 

HOVE U TO X. 

HOVE 12 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

DISPLAY 1-0 WS-NAR-XHAS UPON CONSOLE. 

MOVE 12 TO X. 

PERFORM ZUO-ACA THRU ZUOX. 

DISPLAY 1-0 WS-NAR-PARTY UPON CONSOLE. 

MOVE 13 TO X. 

PERSORM ZUO-ACA THAU ZUOX. 

DISPLAY 1-0 WS-NAR-BUS1NESS UPON CONSOLE. 

MOVE 14 TO X. 

PERFORM ZUO-ACA THRU ZUOX. 

DISPLAY 1-0 WS-HAR-8ILL UPON CONSOLE. 



BOOOX. EXIT. 



Coatlooed next •oath., 



The SIZE Utility 

(w/ a FLEX Goourand Line Parking Module) 



Dear Don, 



Mark Armstrong 
22 Alexander Ave, 
Tor boy, 
Auckland 10. 
NEW ZEALAND, 
ph (09) 403 7924 



Enclosed la a 6809 FLEX disk containing the source 
and object of a program for publication In 68* Micro 
Journal. The aource files to be printed are 
"SIZE. TXT" and "PARSE.TXT' and "SIZE. DOC" contains 
the documentation for the program. 

This started aa an upgrade of my SIZE program so that 
It would give me the true size of binary files by 
taking any overlap In the load asp Into account. Then 
I thought It would be nice to make the default 
filename extension CMD as typically I uae SIZE on 
command files. Well, by the time the anowball stopped 
rolling, I had my upgrade and a general purpose parse 
module which eases the task of parsing options and 
numbers from the command line as well as file 
specifications. 

I am presenting the complete source of SIZE (includes 
the source of the PARSE module) so that other readers 
do not have to re-Invent the wheel and as an example 
of but one method of handling command line parsing - 
something which occurs all the time when writing 
programs under FLEX. 

The PARSE Module 

This Is s self-contained module which is separately 
compiled and the compiled code is just linked In when 
compiling SIZE. If you went a complete source listing 
when compiling SIZE, replace the line in SIZE 

module PsrseMo4ule-<o4e from "PARSE"; 

with the line 

~ include "PARSE" 
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If you went SIZE to be a single source file* replace 
the line with the entire text of PAKSE. 



1"he variables and 

documented in the 

demonstrated in SIZE, 
useful; 



procedures in the module are 

source and how you use them is 

However , a few notes may be 



1) NextCh uses NXTCH In FLEX so there are no worries 
about it crossing into the next command on the 
command line. 



When reading a DBYTE (auch as Transfer) from the BYTE 
FILE Binary, WHIMSICAL reads two consecutive bytes 
froa the file and automatically combines then into 
the DBYTE - a handy feature. 

The curly braces { and } are equivilent to a begin 
end pair and are used just for style. The vertical 
bar "}" character la equivilent to a apace and has 
been used extensively in SIZE and PARSE to give a 
visual guide to the structure of the program wherever 
the indenting made It not obvious. 



2) To parse say an integer on the command line, do 
this; 

ReturnCurrCh;-true; 

read from NextCh Thelnteger; 

CurrCh will be left containing the character 
immediately after the integer. VHIHSICAL's read 
Integer will skip any leading spaces. 

3) All programs should keep parsing the command line 
(I.e. calling NextCh) until they hit either a 
TnfSET End-Of-Line character or a Carriage Return 
so that FLEX will recognise any remaining commands 
on the command line. This is what FinishParse is 
Intended for. It should be used whenever the 
program aborts while parsing the command line and 
when the program has all the parameters it needs 
fom the command line. Note that if the program is 
aborted via the PCRLF system routine, FLEX will 
ignore the remainder of the command line. 



Unfortunately, some programs (even commercial 
ones) do not alwaya do the above and aome even use 
the line buffer for their own use, destroying the 
commend line and any unprocessed command a on it. 



The SIZE Program 

I guess the first thing to notice is that both 
uppercase and lowercase M are accepted as the Map 
option. All too often programs prompt us with a 
question to which we answer "y" and it is taken as a 
no! . 

The PsraeOptiona procedure really has unnecessary 
features. The whole procedure could be replaced by 

proc ParseOptiona- 
X 

begin 

NextCh; case CurrCh of ("WW 1 : LosdMap:-true} ; 
end; 

However, I wanted to present a general purpose 
structure that Is easily expanded for more options. 
These can simply be added to the case statement aa 
required. 

Note the main "while loop 11 skips any nulls between 
records. Nulls can be found in the middle of a file 
formed by an APPEND operation and will usually be 
encountered at the end of a file (padding out the 
last sector). 

Ndx-0 is used to Indicate that the loop has just been 
entered. Alao note that the addresses in the Laat 
array are actually one bigger than the last address. 
This is why the loadmap is written aa lestf Ndxl-JOOOl 
but it saves having to add or subtract $0001 at 
various other placea in the program. 

The variable Bytes is a LARGEINT (a four byte 
integer) because this is the most straightforward 
method for getting SIZE to report the size of files 
bigger than $7FFF correctly. 



Conclusion 

I was amazed how long it was aince I laat contributed 
to 68* Micro Journal. I've even moved to a new 
addreas since then. 1 guess I waa too buay reading 
all the interesting material others have contributed. 
I look forward to each issue and think you're all 
doing a fine job. Keep up the good work. 

Regards, 

(Mark Armstrong) 
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I ph (09) 4Q3 7924 

X complied by VHIK VB* i.?:tt8<4) 

X Command Syntax: 

X SI XI, <f lie apac>|,*<opclon>) 

X *h*r* file ji}»i*c 4«(^il(4 tn work drtvi with C*fo f»zten«Lon 

X and the only option la K tt> d Up lay the 1 1 La load nap. 

" STACK-U$CC2»)> 

" VKMSIOM j,».SLX€ by M C Araetcong In NKIMSICAL" 



X write the tile load e»p If true 

X tr ( »e 1! e tranofor addraae found 

t ueed for binary record data 

X nuaber of data bytaa In record 

I laat encountered trenefer eddrete 

I record load addreea 

X nuaber of unique addreeoeo occupied 

X general purpose array lodex 

X Index of leet load nap entry 

I fleet addreea of consecutive recorde 

X laet eddreee of coneecutlve recorde+SQOQJ 

X file nee* 

X default extenelon 

X the binary file 



proc PCRLf-exteroeHSCttA); X prlof C*. IP end look for ESC 
oodul* PareaKodula*code froa "PARSE 1 *; 



begin 






BOOL 




LoadHap, 
TranaferPound; 


1TTE 




Date, 
Count ; 


DBTTE 




Trenefer, 
Addreia; 


LAACE1NT 


Bytee; 


SHALL1NT 


1, 






Ndx; 


DBYTE 


AJUtAY 


Plrtth27], 
UitLl27); 


CKAR 


APAAY 


NemelUj, 
CKD-CoaT); 


BYTE 


PILE 


Binary; 



proc ParaeOptlone* 



X Pare* opt lone eroei the c 
begin 

BOOL Quit; 
< o begin 

NextCh; X get next option 

ceee CurrCh of 

begin 



nd line. Embedded ipacae ere allowed. 



alee: 



LoadKep:«true; 
Quit: -true; 



end until Quit; 
end; 

proc CemDve0verWp< SHALL INT N)» 



X En i ore thot map addreee entry N doe* not overlap eny other entrlee. 
begin 

SHALL INT t; 
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for 1:-1 to Ndx do X ecen all antrlee 
If 1<>N than X eklpplng antry N 

bas^n 

If Ptrat|Nj>-Plrat[l] A«D Flrat|Nj<Uitl l] then X overlap 

if Laet|Nj<.Laet|l] than 

begin 

LaatjNj:«Plret(Nj; X If eubaet then nullify 

end elae 

begin 

FlratlNf :-Laet( I] ; X nvove the overlap 



end; 
and; 
t Haln program aiarte hare 
X — - -— 

PCRLF; 

tf P*r»ePtleNaM<Nea«, CKD) then 

begin 

write "Illegal file specification"; 

FlnlehParee; * eaaure that f*«n*e la completed 

STOP; * return to FL£X lawedlately 

end; 

If CurrCh""*" then ParaaOptlone elee 

If NaxtCh*"*" then ParaaOptlone; X check for opt lone 

PlnlahPerae; * enaure that perae le completed 

open Binary at Nee*; X open the file Cor reed 

read froe, Binary Data; X get the llret byte 

If Data<>$02 AND Data<>$16 than X check If etert of record indicator 

begin Z or tranafer addreaa Indicator 

write "Not a binary file"; 

STOP; X return to FLEX tvcdlately 
end; 



X Cmeral Purpoae Perae Kodule (Pile PAUSE) 2 JUN B5 
t 

X by H C Armstrong. 

X 22 Alexander Ave, 

X Torbay, 

X Auckland 10. 

X HEM ZEALAND, 

X pb (09) 403 7*24 

X compiled by WHIM V&R t.7:fifi(4) 

■odule PareeHodule- 

begin 

public 

CHAR CurrCM$CC18); 

X — - 

X Thla la the current character on the coeauind line, 
BOQU ReturnCurrCh; 



X If true, NextCh will return CurrCh when next called. NaetCh elwaya 
X acti ReturnCurrCh felee. Thla ellowe the uie of WHIMSICAL'* read 
X <nueber> atartlng with CurrCh and leaving CurrCh ae the terelnetor. 

CHAR proc NexcCh; 
X — 

X Thla r«:turni the next character on the coeaind line. 

X Multiple epacee are eklpped and returned ae a tingle apace. 

BOOL proc PinlehPeree; 

I tfltl. a .tart of record or tranafer eddreea Indicator, OR It la • * ciiu'iextCh'unlii'currCh 1. either the TTYSET End Of Line ch.r.ct.r 

I null ..J. Mful^nc fro* an APPEND operation) AND not the % of g c- „ t Return . R . turn , tf|| . u re<iAlnder of lln . w „ ocner 

X end o» the file then keep going , .. 

while (Data-$02 OR Deta.$l6) OR (Dite-$00 AND NOT EOP(Btnery)) do P * 

begin 

If Deta-$02 than 

** tn i pin«i the file epac on the command line Into Heme, atartlog with 

read froai Binary Addreee, Count; X reed lo4d addreaa and byte count r .,„_ rK a«P..~ ► _.-.«# »»...,.. i. - f-, , ..,.., i »w- mt. .«-„ 

.2 uj /» n* t *.J* -«v. -i u j i -i. X CurrCh, Returne true If there la a forest error In the tile apec. 

If Ndx*0 OR (AddraeeOLaettNdxt) then „ ...... « . .. « 

. . X Neeje «uit be declared with at laaat IS element* and the flrat 3 
begin 

If Ndx-127 then 
begin 

write " M (TH" JLoad map too f ragejented" ; 
STOP; 
end] 

Hdx?-Kdx+1; 
Plrit|NdxJ : -Addreee; 

Leet(NdxJ:-Addreee+COMBlNE($00, Count); 
If LoadHap then 
b»nln 

if Hda>l then 
begin 
write "S'\ Laet [ Ndx- U -$0001; 
PCRLP; 
end; 

write "Loede ftom 5", Flrat [Ndx], M to "; 
end; 
end else 
begin 

Uet(NdxJ:.Addreee-K0MBlNE($00 r Count); 
end; 

while Count > $00 do {read froei Blnery Deta; Count : .Count-$01) ; 
end alee 

If Date-$t6 than 
begin 

I read fro* Binary Tranafer; 
TraniferFoundr-truo; 
end; 

If NOT EOP(Blnary) than reed fro* Blnery Data; 
and; 



BOOL proc ParaePlloNametCNAR ARRAY Name. Ocf aultHntenelon) ; 



X element* of DefeultExtenelon ere ueed aa the de 

prlvete 

CHAR proc MextCh- 
X 

begin 

DBYTE proc NXTCH-eeternel( SC027) ; 

if ReturnCurrCh then 

begin 

NextCh:. CurrCh; 

ReturnCurrCh:>falae; 
end elie 
begin 

NextCh:-CHR(NlBYTE(NXTCN)); 
end; 
end; 

BOOL proc PiniehPeree- 

begln 

CHAR TTYE0L($CC02); 

while CurrChOTtYEOl AND CurrChOCMR(SOO) do 

begin 

if CurrChO" " then FlnlahParae:*true; 
NextCh; 
end; 
end; 
BOOL proc GetFileName(CKAA ARRAY Na»e)»code 



If Ndx>0 then X eomethlng waa found 
bag In 

If LoadNap then 
begin 

write T, Uet|NdxJ-$0O0l; 

PCRLP; 

If TraneferPound then 

begin 

write "Traoefer addreee la 5" , Transfer; 
PCRLP; 
and; 
PCRLP; 
and; 

tor l:»l to Ndx do RamoveQvarlapC I); 

for t:«l to Ndx do 8ytee:.Bytee4EXTEKD<DEC(Laet[ 1]-Plrat| lj>); 
aod; 

write ''File le ", By tea, " bytee long"; 
end. 



I Returna trua If there la a format error In the file epec. 

( SBD. SC02D, X JSR CETPIL eddreee of Nee* paieed In (x) 

$24 » $01, X BCC CLRB no errora ao clear (B) 

$C6, $5P, X U>B ICLRB errora ( ao make (B) non zero 

$39 ); X RTS return 

BOOL proc ParaePUeNeme(CNAR ARRAY Neme , De(eulttxtenalon). 



X Returne true if there la e format error In the file epec. 
begin 

5KALLINT Source, 

Oe*t:-l; I note declaration time eailgnment 
PareeFlleNam*:-GetPU*N*ej*(Name); 

Name|0|:-CHR(A$C(Nemel3])*$30); X convert binary to ASCII 
for Source:-4 to 14 do 
»glo 
caee Source of X put in the dote 
begin 

4:12: NaaelOcat ]:-"."; 
Deat :-Daat+l ; 
and; 
If Nee*|5ource]<>CHR($00) then X do not tranafer nulle 
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btgln 

M4Mr I QmmK. 1 ■-**-* \ Sourc* J ; 
Dent: •tout* I; 
and al*a 

cm* Source of t If eattnalon null than put in default 
beglo 

12,14: NiHjOiit J :-Oaf ■ultExt«nalontSourc«-l2] : 
0aat?~5aat>l; 
and; 
end, 

N«*»l»»Bt | :-CH«( 500). X terminate file •pec If tcatlon with * null 
end | J for compatibility with STK aodulaa 

end; 1 of pare* nodule 



Sill 

The SlJtK cooaand le need to detereloe the 
«tae of e hi n*ry Inriwt tile. The alct l» 
given In decimal and li the number of 
unique addreaeee the I lie loeda Into. 
An option la provided for dtapla/lng the 
(lie Load ■*?. 

DESCRIPTION 

The general ayncea of the SIStK 

command l»r 

5t2K,<flle epec>| .♦<optlon>J 

where the file epec dafault* to 
the m>tk drive with CHU eatenalon and the 
only option la; 

H DlapLay the load sap. The flret 
addreie and laet addreee of each block 
of conaecutlve binary data la 

dtaplaytd. if e tranafer addreee la found 
In cha Mil, tt tollove the List of 
addreaaaa. tf ajore Chan one cranafer 
eddreei la found, only the laet one la 
retained end dlapleyed alnce It la tha one 
TLtH will ua«« 

lea: 



«*S1« HAKE ♦♦♦S1ZK OV£ftLAT,Bl»»H 
^♦St2E O.VlEI**M 

The flret anampla would report the 
eite of HAKR.CHD. The aecond enaajpla 
would ahow where OVftKLAY.*[N Load* and 
ita else. The laet exeejple would ahow 
where 0.V1EW.CHD loade And lee eUe. 

■OTK: Thcftc prog rant are available on 64 HLcro JoamAl 
fte«4er Smrtlc* Dtak #18 (see p. 60)* 

The CMD Utility 

John Spray 
8 Valley View 8d . 
Clenfield, 
Auckland 10. 
NKU ZEALAND. 
Dear Don, P h <09> *** 6550 

Pl**<***> find on Lhc enclosed iii*k u»« aoutce and 
object of a program for publication In 68* Micro 
Journal. The source files to be printed are "CMD .TXT" 
arid "CMOOOllE.nr' and "CHD.DOC" contains the 
documentation for the program. CMDCODE Is part of the 
CMD program and should be published with it. The 
program if included with this disk from Mark 
Armstrong because It makes use of his module "PARSE" 
also. 

Your faithfully, 
John Spray 

This is a neat little utility which 
offers an alternative to using an EXEC 
file to avoid typing a frequently used 



command line. For example I often have to 
set my printer to emphasised mode by using 
the command sequence: 

P4 HECHO IB 45 07 

The final bell, by the way, Is only 
to make sure the printer receives the 
command. 1 never actually type In that 
command line. Instead I simply type 
EMPH<cr>. This utility will load the above 
command string Into the FLEX command 
buffer and re-enter FLEX to have It 
executed. 

The CMD utility allows simple 

creation of such utilities for any desired 

command string. To create EMPH.CMD you 
simply type: 

CMD.EMPH.P4 HECHO IB 45 07 



The 
follows: 



syntax for the CMD utility Is as 



CMD , filename, command -s t ring 

The filename Is the name of the CMD 
file to be created. Of course the default 
extension Is .CMD. It Is created on the 
system drive unless specified otherwise. 
The command-string Is any valid FLEX 
command line which you wish to use often. 
It may contain multiple commands separated 
by TTYSET End of Line characters (usually 
a colon). The entire command line will 
stored Into the new utility. 

Utilities created by CMD will shift 
the tall of the command line along If 
necessary before copying the command 
string In. Therefore commands following 
will still execute correctly. For example 
If you type: 

EMPH:P4 LIST PROGRAM 

The EMPH utility will create this 
string In the buffer before returning to 
the FLEX RENTER point. 

P4 HECHO IB 45 07:P4 LIST PROGRAM 

Say you wanted to create a new 
utility to perform most of the above 
command, so that you could type EMPRINT 
PR0GRAM<cr> to have a program printed In 
emphasised print mode. That Is everything 
up to and Including LIST, You would type: 

CMD,EMPRINT,P4 HECHO IB 45 07 1 P4 LIST 
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Now say you wanted to have an option 
+P on the end as part of the standard 
EMPRINT utility. In this case the program 
name must be inserted into the middle of 
the command string as a parameter. To do 
that you use an M @' T character with a 
parameter number, for example: 

CMD, EMPRINT ,P4 HECHO IB 45 07|P4 LIST 
(?1 +P 

Now when you type EMPRINT PROGRAM<cr> 
the string PROGRAM is substituted into the 
command string where the @1 was. 

Up to 9 parameters may be specified. 
The parameters are taken in order from the 
command line and substituted wherever the 
corresponding parameter numbers are in the 
string. Parameters are separated by 
spaces or commas unless enclosed by 
matching quotes, either " or *. If 
enclosed by quotes any characters may be 
passed including ttyset end of line 
characters. If fewer parameters are passed 
than required by a given command, the null 
strings are used for the missing 
parameters. If a null parameter is 
required it can always be specified by 
using two successive commas. 

The same parameter number may occur 
several times in the string. The 
substitute character, the M @", can be 
changed to any of $ 2 & * or by a 
specifying it as an option after the 
filename, for example: 

CMD COMPILE +$ PASCAL $1 +YCQ$2:ASMB 
$i.TXT +YSL$3:PRUN $1 

The above command will create the 
utility COMPILE which will compile, 
assemble and run a pascal program. 

Parameters add great flexibility to 
the CMD utility. The only catch is that 
the resulting command string must fit into 
the FLEX command buffer. 

The utilities created by the CMD 
utility have one extra little feature. 
They echo to the screen the entire command 
string just before the return to FLEX so 
that you can see the exact commands which 
will be executed as if you had typed them 
yourself. This feature can be suppressed 
by using a +S option when the CMD utility 
is used. 

Z Utility for asking • coaasnd file to eaecute « 
Z specific coaasnd 

t Written by J. R. SPRAT In Vhlaelcal 



"STACK-15CC28J 
"VERSION 2 



CHAR ARRAY NAHEl U | .EXTCNSIOH-C'CHD") ;Z Pfla nse* and extension 



ftYTK STR1NCLEH, 

SYSYKHDRTVE(SCCOB) f 
W0RKDR1/JLSAVE, 
WORKER tVE(SCCOC) ; 

CHAR TTYEOL(SCC02). 
TTYEOLSAV*; 

fKJOL PARAH; 

DBYTE SPTR. 

PATCHES; 



Z length of at ring 



X Ptea'a ttyeet eol character 
Z Save area for ttyeol 

Z Pointer Into CMDCGOR 

Z Loc for patches In CHDCOOE 



Z Following procedure It not a procedure at si I but a way of 

Z getting the QO000E prograa In 

PROCEDURE PCMDCODE-CDDE PROM "CXDCODE.CND"; 

PROCEDURE DUHKY-CODEO; Z lhls ao ve kno* where end of p cad code la 

Z Following array overlays ths PGRDCOOE procedure 
BYTE ARRAY CHDCODE(LOC( PCMDCODE)) ; 



MODULE PARSE-CODE PROM "PARSE"; 
PROCEDURR PCRLF-EJtTRlWAL(5C024); 

PROCEDURE PLUSH- 
BBGIH 

BYTE FILE CKDPILE; 
DBYTE TRA/*SPCR«5C100. 
CDDAD;-TRAMSPER, 
SPTR. 
LEHCTH; 



I Module to parse (lieu* 
Z Procedure to ealt code 



Z transfer address 
Z Current ealt code addreea 
X Pointer Into CKDC0DE 
Z Length of CH0CODE 



PROC WRITER£C(«YTE C0UHT) ; 
BECLH 

WRtTK TO CHDP1LB; 502.CODAD.COUNT; 

WHILE GOUNT>$00 DO 

BEGIN 

WRITE TO CKDPILE CKDCOOElSPTR) ; 
SPTR:-SPTR*S000l; 
COOAD: -CODAD+ 50001 ; 
COUHT:-C0UHT-$0l; 
EHD; 
END; 

CREATE CKDPILE AS HAM?.; I Create Plcn binary file 

LENGTH :-LOC(DUKXY)-LOC< PCKDCODE) ; 

WHILE SPTR<LENGTH DO 

EEC IN 

LP L1NCTH-SPTR>$00PP THEH WRITEREC(SPP) 
ELSE WRITERRC(LOBYTE(LENCTH-SPTR)); 

END; 

WRITE TO CMDPtLE Slt.TRAtfSPER; Z Write out trenafer addreea 

CLOSE CKDPILE; 
END; Z OF FLUSH PROCEDURE 

Z MAIN PROGRAM STARTS HEW 
PCRLP; 

WORXDRIVESAVR:-WORJCDR1VE; 

WORRDRlVEs-SYSTEKDRIVE; I Set wording drive to systea 

IF PARSEPILEHAMS(HAME.EXTEHSIOH) THEN 
EEC IN 

WRITE "Invalid file specif test Ion"; 

WDRKDR1VE:-W0RXDRIVESAVE; 

STOP; 
END; 

WORRDR t V E : - WORXDR I V ES AVE ; 
i¥ CURRCH-" " W CURROl-*\ M THEN HBXTCH; 

Z Plnd the place to put the patchea 

WHILE QOCODE I PATCHES JOS00 OR CMDCODElPATCHES+SOOOl JOSFP DO 
PATCHES: -PATCHES* 5000 I; 

Z Parae any options 
IP CURRCH-'*' THIM Z opt lone 
BEGIN 
HEXTCH; 
DO 

CASE CURRCH DP 
BEGIN 

'5': CHDCoOElPATCHES+50001! ;-$00; X Suppress echo 
'*'.*&*: ***; ***: Z Alternative eubstltute chera 

OOCOOElPATCHES+50002 J :-ASC(CURRCH) ; 
ELSE: WRITE "Invalid option"; STOP; 
EHD; 
HIXTCH; 
UNTIL CURRCH-* * OR CURRCH-*.'; 
NEXTCH; 
KND; 



Z Get the string Including ttyeol characters 

TTTEDLSAVE:-TTYBOL; 

TTTEDL:-CHR(500); Z Sst ttyeol to null 

IP CURRCH-"-M K THEN Z No string given 
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BEGIN 

WHITE "String expected"; 

STOP; 
END; 

SPTR:- PATCH ES*30O0e; 1 Point SFTR to string 

00 BEClN X Reed In teat at ring 

OOCOOCl SPTR) :-ASC<CURRCH) ; 

STRlNCLEN;-STR[NCt.EN*S01; 

sptr;-sptr*soooij 

IP PARA* AND CV«iCR>-*r AND Ct)BBQK-*9* THKN 
IP CHDCDDEiFATCNES*S0003|<A$C<CUBROI) THEN 

O©C00E( PATCHES* J0OOJ]:-A$C<CVi*CH); X Sat no r iri*i 
PAlAN;-CUKACM-CMR<OaK]D0ft(PATCHKS*S0002]); X Pereajt 
NEXTCH; 1 Gat next character 

END UNTIL CUtRCM-'-M"; Z Plolah on cr only 

CKDCOD«[PATOiES|t-STRlNCUN; I Patch Laogth of string 

TTYEOLr-TTYEQLSAVR; Z Put back ttyeol 

X Craata the new utility 
FLUSH; 

WRITE "Coaaaand (I La created."; 
END. 

Z CNDCO0C.TXT 

I Thla utility It tha shall uted by cad to craata apeclollzad 

X utUUlaa. It la locorporatad aa part of cad. 

I Wrlttan by J.R.SPRAY l«i WMaalcal 

"STACK-IJCC26] Z Start etock at aeaefid 

*VEAS10N 2,"Crealai! by the CMD utility vtr 2'* 

BBC IN 

OBTTE eUFLOC-pSCOBO; Z Plti'a Una buffar location 

CHAR ARBAY BUF(BUFLOC); Z rie«' a line buffer 

OBYTR BUFPTB(SCCU)- % fltf line ouffer pointer 

CHAR mfB0L()CCQ2>, t Flee'a and of line character 

ISTTRHOCCII); Z Plaa'a laat teralnator 

t Following 5 arrays art tilled In by tha c«jd utility 



BYTR ARRAY LENGTH-< 300) ; 
BOOL AJltAY ECHOFL-<TRUB>; 
CHAR ARBAT SUBSTCH-CI") J 
CHAR ARRAY NFARAHS«<"0") ; 
CHAR ARRAY STRIM>( 



Z Length of ttrlng 

Z Echo tha atrlog flag 

Z Subatltuta character 

Z Nuaber of peraeatara 

Z String of 126 charactara 



*>; 



BTTE LBP:-LOBYTR(BUPPTR-BUPLOC), X Line bwfr.r pointer 

PL; t P^reawter lengLh 

CHAR PC: -"I". X Piutrter counter 

0EL1H, X Feraaater dallaltar 

CVRCH; Z Currant character 

BYTE SPTR, Z Starch pointer 

HPTR, Z Hova pointer 
COUNT; 

PROCEDURE PCRLP-EXTERNAL(SC02A>; 

PROCEDURE SRIPSEP- 
BECIN 

WHILE BUP(LBP]-' ' 00 LBPi-UPtJOlj 

IP BUPlLBPl**.' THEN LBP:-UF*S01 ; 

CUECH:-BUPlLBP]; 
IND; 

•CRLP; 

WHILE PC<-NPAAAM9|0l 00 Z Subatltute the peraeetara 

BEGIN 

SELPSEP; Z Skip aeparetora 

Z Datarmlne paraanuer dallaltar 

OEHH:-CURCH; 

IF DEL IN-"'" OR DELD*-'"' THEN 

LBP;-LBP*$0l 
ELSE 

0EL1K;-' '; 
Z Find laogth of parameter 
PL:-LBP; 
CUldir-BVFlPL]; 
WHILE CURCKODELIH AMD CURCHO^'lT 

AJTD (CURCHO*.* AUD CUICHOTTYEOL OR DELINO' ') 00 
BEGIN 

PL: 'PL* SO I; 
CURCH:-BUP[FLJ; 
END; 

PL:-PL-L»P; 

SPTB:-S00; Z Ratat aearch polotar 

WHILE SPTR<LIHGTH[0) 00 Z Setrch ttrlng for paraajatere 
BEGIN 

IF STB l*C{ SPTR ]<-8UBSTCH|0| AND STIlNClSPTRtJOl ]-PC THEN 
BEGIN 

IP LRNCTH(0]*PL-S2>-|R0 THEN 
BEGIN 

WRITE "lntuff tclent room to tubetltute peraa«tara"; 
STOP; 



RNU; 

IK HL>32 THEN 

BEGIN 

KJTK:- LENGTH l0|; 
WHILE HPTR>SPTR 00 
BttGlN 

HPTiu-NPTR-SOl; 

STRINCjMPTR*PL-J2] :-STRlHG(HFTR| ; 
END; 
END ELSE 
BEGIN 

NPTR:-SPTR; 

WHILE HPTR< LENGTH 10 1 00 

BEGIN 

SlK[MClHPTR|:-STRlNC|HPTR+92-PLh 
HPTR:-HFTR*S01; 
END; 
END; 

LE NCTH 1 1 : < LEHCTH ( O ] * PL- 902 ; 

KFTK:-LBF; Z Point KFTR to the parameter 

COUNT: -PL; Z Set count to pinaster length 

WHILE COUHTO900 00 Z Trenafar the parameter 
BECIH 

STH[NClSPTRh-BUP(HPTR] ; 
HPTR:-KFTR*SOI; 
SPTR:-SPTR*S01; 
COUNT: -COUNT- SOI; 
END; 
END ELSE SPTRl-SPTR+901; 
ENO; 

LBP:-LBP*PL; X Skip paat parameter 
IP URLIHO' ' AND DELIM^CURCH THEN Z Skip ending quota 

LBP:«LBP*301; 
FC:*CHR(A$C(PC>*S01); 
END; Z of substituting poraaetere 

SXIPSEP; 

IP CURCHOTTYROL AND GUBCMO'^N** THRU 

BEGIN 

WRITE "Too ajenp parameter!**; 

STOP; 



t Hova tall along If naceeaary 

IF LBP<LENCTH{0| THIN Z Need to ajove tall along 
BEGIN 

SPTR:-LBP; X Sat search pointer to begloolng of tell 
WHILE BUP|SPTB]<>''~Hr 00 

SPTR:«SFTR*S01; X Find and of tall 
HPTR:-SPTR*LEJiCTHtO]-LBP; 
IP NPTR>-SB0 THEN 
BEGIN 

WRITE "Insufficient roM on coamand line"; 

STOP; 
END; 
00 BEGIN 

BUFiNPTR]:-BUFlSPTB]; 

NPTR;-NFTR-S01; 

SPTR :*SFTR- SOI; 
ENO UNTIL SPTKLBP; 
LBP:-HFTR*S0L; 
END; 

X Copy atrlng Into Una buffer 

LBP:-LBP-LENCTHlOl; X Backup LBP by atrlog length 

HPTR:-LBP; 

SPTR: -300; 

IP ECN0PL|0| THEN WRITE "♦♦♦"; 

WHILE SPTR<LENCTHtO| 00 

BEGIN 

BUP(HPTR]:-STRINC|SPTR|; 

IP ECNOFLIOJ THEN WRITE STRING (SPTR] ; 

HPTR:-KPTt*30l; 

SPTR:*SPTR*SOI; 
IND; 

BUPPTR:-BUPLOC*COHBINE(900,LBP)-S000i; 
LSTTRM: -TTYEOL; Z Tall flea aura coewend* to go 
END. 



Sdltor'a Notes For ell thoaa Whlmalcal uterex hare art 
aomo for you. And I night add that they ere pretty handy 
utlltloo. I aa at 111 AMelXA at tha Quality of davalopMot 
eoftvara we are fortunate to have areata to aa cohered to 
■om of the other 'bli'(l) eyateaa. BB never had It eo good. 
If ttora folka knav what we have, we would grow faatar thao 
Jack'e bean atalkl 

And ea tha Mac covaaunlty to concerned , they got a loooooooog 
wey to got 

■OTIi SIZE, PARSE, and CMD are available on ti Klcro 
Jaismal laaalvr 8t>rvlc« QLak #18 (tee p. 60). 



42 



September 85 



'68' Mtero Journal 



A Follow-up to the Article 
In the July '85 Issue 



C. Dragon says 

Speed ThLnga Up! 

A Hex Du*p In Quarter TlJie 

»y 

Brad Taylor 
Ton Gilchrist 

There ara tines when you wane to speed things up. If you 
are doing a lot ot writing to the screen, old printfQ 
•fill alow ya down. Sure lta great for fornatlog, but what 
if you Just want to print out a word here, a atring 
there? The hdunp.c prog ran will set you free 



Run Tine 



Progran 



10 sees 
IS aeca 
46 aeca 



DUMP In 6809 asab. 

hdunp.c 

hex.c (a e ample progran fro* ItfTROL) 



The tines are for ualng the hdunp.c aource on « lahz 
tyaten. Tines are oot exact (I counted* one thouaand 
one, one thouaand two. etc). The progran waa conplied oo 
JKTROl C under FLEX. ConpiLe and enjoy! 



•(Mtr * §jc> ■ *«r*(t ■ 0\ 

do 
< 

iHMint>addresst23M=0) 
header (K 

sn«**rd I address); putcfcarf'-s'li 
i*ace* t |6i3*5: 
FeMN>;i<M!*»i> 
I 

ifl(itf)»C) 
< 

— *nees; 

) 
if(k«fftcUft»utM « EOF) 

break! 
thotftotrkJ; evtebarf ')» 

$MCt5 -■ 3? 

♦♦address; 

lflc02 !J cM27l < * VI 
MAtr*-* ■ ci a^eitr » 0: 
J 

wftfl el space i~) rutcnaM' *u 
outstMasc): crlfOi 
#<e>ntr * asc) « Oi 
J 
aftilek t> €0F); 

ftUttiinratlt 



/♦ 

*hh FWf - *a# a flit in bexadeoaal mt'» FAST 1 ««<«««««««« 

i • 

* FW JlLD»t: 



cHH) 
( 

I 



*»tcbar('\n'); 



*/ 



Versior* 1.3 

aittee, br: Bra4ferd lav Iff 

94 r a EJ*ineer)fit 
Data: Airch 17. JTO 

Altbovvh there are several file dua» taols available for Flex. 
] never liked the outetit foraat. Several V versions of file 
due* gliHt les Nave been published in vanovs aaaazines. but 
these versions alt used "etiutf aMch slowed the outwit. Thi? 
version «* written to jatisf* both readability aad s»»eed reauireeents. 

This oreoraa it aeant to be coaruled with the Fill port of He 
lNPffll C coaeiler. To ceenle under other cotul er*. rou aar need 
to chant* the oe*n() error. 

Tni» code is available on c. drawn (316) 943-9714 on disk Fill 12 
in the directory "shari". 



ootitr(S) 
char *s: 

t 



•tiKlode <stdi*.b> 
Wefin* MaX/HI 1 
to* fine WOE # rb" 
tai niaract ariv) 
mt artc«o*r«y; 
( 



/• Vb" for Fill, 'r* otbers e/ 



mt )*»ut.c«i> spaces; 

cbar «ad#Tets^*Mttr.ascCI7l: 

lfkrtc *» 2) 
< 

ontstM'tisaoei fdw <filetaa*>\n*); 
*xft(»i 

J 

iflhneut ■ f***n<t*«ar»*«PlIE)) =« ERROR) 
I 

outstr< "Can't »m # >i 

outstr(eartv): 

wtstr( a .\n">; 

exit*); 
) 



alleles) 
eutcharios***; 



header 

t 

crlfti; 

ostitrCADKS 00 01 02 03 04 Ot 06 07 08 09 0A 08 DC 00 0E Of 

crlfd; 

oitstrC - - 

crlfOi 



< ASCII)')! 



I 
shaajordtvl 

int v; 

( 

shoal* to iv»«>; 

snoatvteiy): 

) 

shaatrtelvl 

cbar vl 

t 

Stall aa<v>M)t 

steal est vH 

) 

Sbearaa(w) 

cbar «; 

I 

vb« OxOfl 

y ♦« 'O'l 

lf<v > '9') 

v ♦« 7t 
Fvtcbar<v); 
> 
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611 T GERARD MORJSHT, MONTREAL Ql tftfcf HIM Ui TIL (114* l$hO*U 



Dear Don 

Thanks for 
a great 
engineering 
the 680? ar 
a 'E 1 boa 
modif icatio 
publ icat ion 
Micro Jour 
a newly 
engineer < 
done it wit 



a wonderful journal. You've done 

Job of covering the sound 

and innovative ideas found in 

ena. Personally speaking* I have 

rd Coco which underwent many 

ns since I encountered your 

. I think it was the 6609 and 66 

nal which taught me enough to be 

graduated honours electrical 

computer option). Couldn't have 

hout you guys out there' 



My memories of bac 
only buy a I6K Coco 
were fond. My fir 
estimate the missi 
those JFET source- 
soon progressed in 
and 3-D equation sur 
high res pixels 
undergoing the r 
hitting them with) 
flex with Lucidata 
What a combination 1 
mode run time P 
managed to run some 
from my prog cours 
didn't mind as Ion 
adhered to. 



k then < when you could 
and be happY with it ) 
st basic program was to 
ng variable in one of 
drain equations. This 
to Lunar landing games 
face plots. < boy those 
take long to pop up 
otation matrix I was 
In any casei along came 
pascal as the icing. 
Thank god for the paged 
code interpretation. I 
programming assignments 
es at home. The markers 
g as ISO standards were 



It was then t 
disk problem, 
night long bu 
missing 1 inks 
This had me 
alignments. Th 
to the fact 
inbetween the 
Can you imaging 
my 5 1/4 
inadvertent er 
spread eagle* a 
mY work bench 
experiencing it 



hat I experienced a peculiar 

I would run my'disks all 
t given a daY later* some 

will inevitability show up. 
changing drives and frequent 
e consistant culprit was due 
that I had placed mY drives 

CRT monitor and the phone. 

the flux density going thru 
round babies' Talk about 
asure 1 The solution was to 
1 1 my computer components on 
If someone out there is 
* well what can I say. 



What's my system now? 64K OS-9 based Coco 
mainly running C programs. Its PIC so why 
not? My interest now is to develop a batch 
supervisor program which executes f batch 
Jobs' using other 64K banks. (everyone 
should have heard about the 12BK boards bY 
now) You should be able to trap all 
reasonable service calls and pass them with 
a little or no modifications to the kernel. 
The problem lies in processes which want 
information or modifications done to their 
memory environment. Thats a sticker yet to 
be figured. Any ideas out there? Given the 
126K cards (and MaxsYS offering more»>» I 
don't see whY someone hasn't come up with a 
OS-9 level two kernel to take advantage of 
the new capability. RAM disks are a cop out 
effort to the new challenge. If someone 
provides me with the capability of running 
large programs in multiuser mode* I'll 
invest in memory expansions with a hard 
disk drive for sure. Right now? running 
this watered down version of OS-9 on the 



Coco is perplexing. (I even had to pay $50 
for the standard 0S~9 ACIA and PIA source 
code on a disk). 

One thing that has bothered me. I don't 
know how an actual disk driver works. I 
know all about the WD familY of FDCs but 
never took the time to investigate further. 
Will some kind soul with a copy of a 
workable driver please send one to me. 
Waves of gratitude will befall you* Alsoi 
as my predominant area of interest in 
computers are Fault tolerant computing* 
parallel architectures and VLSI automated 
design* I welcome friendlY coorespondence 
with parties having similiar interests. I 
have Just finished a research project into 
robotic collision avoidance. Once again* 
thanks a mi 1 1 ion. 

Jack TaY 

Dter Str». 



Firtl ttt at Itll rOu tail it tftitr trtrr tiaatt lllut of 

roar ' if «iero joarntl. It *r* ifin IrMni lo tterl ■ 
rtflutar contribution frot • vrt inthovuiiiio tinlFlEX 
uttr frog* htrt in Molltnf. I* think that UnlfUX It 
rtallr trtatntfaut but taa liltlt »tifi irt attri far it in 
'19*. Jlarat thli it bacoatt TSC ktttt ill met thmft 
h»4itn fro* tht attrt (hot to aritt ani ittttttnt om 
inrtrt tlc>. TSC ami It •«trr of tht foot that 
mcrooart <BS~9) It awe* tort Attn aaaut thit. tt't about 
tilt that thtr enanft lUtlr wmitor. Hattfullr rau ifrtt 
flth ut and illl tttt tht •Off... 

Sacontflr I oont to otntion that at hart ItfHlT (flit 
icantftr tilllilr) ivillikl* rar Fltx en< UniFlEX. tht 
Mett It aa otfottta' Pinion of tht OHIX C*vtrt!an ohieh 
can bt eaoMlt* alth MTIOL-C. Tht VniflCK portion IS tht 
CdtX C rtrtion <rou itt hot torloatt C it) and eon »« 
(Oiilltl utlnfl tht KcCoth conilfr. Ooth art orognf 1?#l 
linti »aurc». [f row art iftttrtttttf f tilt try to vritt 

Sttobiao of Jate eoaauna eation. it it aattiolt la tvalith 
a Utt of 11$ thont nuobtrt alth rtoular uafoltt tattahtrt 
in '61'? 

Tht CS/SVfPc uitrlroui can bt rtochtf at miiriw at tht 
bottoo Of till a Ittttr. 



Sttt itiirtf). 




C*/*TTPe tfttr Croat* 

COtrt 3an ran a>* luttcht. 

teea 51-a. 

2411 IV 0CLF1 

NOLLJIIID thant <«M5*M49S2 

E ditor's Hot a i^bort, Jkitks for tht offor of softmro 
•ami*/, J know tbit thousads of nodors, uorlduido, 
»otld ipprtcutt Ytry tucb your contribution. Ir Mould 
rut lort hifltt utoriil but J ncoivo littlo if aiy 
coopor lit to* fnt ISC, aid littli VtifUl itptt otkirnis*. 
I iiress thiy irt sotisfitd uith tbitjs as tboy in, aid 
lost usors in too bit}, or soirtfciif. 9r it just tight hi 
tbit thtrt in i lot ton 0S-9 tun. tiontvtr, you in 
riohtf 0S-$ i% bttttr stpportid, %o iv radon say. Aid 
nc crrtaitiy §ot fir ton OS-9 tittritl tbit VtifLtl* fact 
is I bif§ rut ivory bit of H if Lit atoriil rtctivid 
todito. 

I tbitk oto 4iffintct is tbit JSC tovtt did (dospito 
protisito, oar $ yrars i§o) to coir out uith tb§ 
cotfifuriblo nrsiot'. I ms npatly told tbit tbo codo 
Mas fitishod aid tAtv utrt just *utit§ to fit tbo 
docuttttitiot doir. }i his ton boot fin ynrs aid still 
tot rrirasrd. Bust hi oto bio. tothtr of a laiuaJ.' 

/ uill ittotpt to oot a upMti W listitf it a 
futun issoor of 69 UlCftO J0MIML 1 mid aiartcJitf aiy 
input oi tbis frot othtrs nbo Iion of aiy NS uitb its 
tutbor, thit our radors uould bo ittonstod it. 

m 
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Introducing the GMK-020- - MC68020 Procaaaor Soerd froa CIM1X 

MC68020 32-911 Microproceseor 

The CMk-020 CPU Board uaas the stata-of ~the-ert MC68020, the 
newest and aoet powarful ■•■bar of Motorola 'a M68000 feaily of 
aicroprocaaaora . fha MC68020 la a full >2~bit procaaaor with 
eeperete 32-bit addraaa end data vueee, an on-cMp lnetruction 
cacha, and a coprocaaaor intarfaca. T»ie MC68020 la objact-code 
coapatibia with aarliar aeabere of the M66000 faeily, with 
enhenceaente to tha Instruction eat providing additional eupport 
for high-ieval lenguegee and ayataaa aoftwore. Tha procaaaor 
alao aupporta deaand-paged virtual aaaory. 

The pipalinad intarnal architecture of tha MC68020 allowa 
overlapping eaecution of icietruct 1 one . and can reeult in a nat 
Instruction execution tlae of zaro under cartain clrcuatteiicee . 
Thia, along with tha on-chip cacha and othar enhencaoenta aeke 
tha procaaaor typically 400$ aora powarful then ita 
pradacaaaora. Tha 16 MMr varaion can procaaa iretructlone at a 
auatainad rata of 2 to 3 aillion inet ructlorte par aacond (MIPS) 
and at burat rataa axcaading B HIPS. 

CHX-020 Procaaaor Soerd 

Tha CMx-020 CPU Board la daalgnad for nxliui utlllratlon of 
tha power of tha MC68020, while retaining coapat ability with tha 
alraady proven CIM1X line of peripKarela euch ee OMA diek 
controllera and Intelligent 1/0 procaeeora. Tha board faeturae* 

• An MC68020 procaaaor operating at a 12. > MMr clock rate 
(16.5 MMr optional when available) 




diecreta Maa-or 
tl-ueer, eultl 
virtual memory ai 
aaaa in aaaory ac 

tranalation 
butaa with aach 
bit to protact ai 
containing valid 

have baan aodi 
a aegatfnt haa baa 
aupporta « Mage 
ala Pageant aapa 
8 Nbrtaa of 



Menagaaent Unit (MMU) that 

talking oparatian and 

nvironeenta. Uaa of tha MMU 

caaa tlae. In addition to 

tha MMU aaaociataa four 
4K aagaant of e)e«oryi a 
hered texti a "valid" bit to 
data, e -dirty* bit to flag 
fiad, and an "acceaa" bit to 
n tiaed. Tha atandard MMU 
bytaa of virtual aaaory with 

Other conflgurat lona can 
irtual Pi-ory, or up to 6* 



A high-apead 
aupporta aul 
deaand-Pagad 
cauaaa na lncr 
dynamic addr 
aaparata ettri 
write-anable 
flag eegmente 
aagaanta that 
indicate that 
configuration 
up to M aapar 
llltif up to 
aaPerate aapa 

1 An optional floating-point coprocteeor (MC68881) that 

directly extando tha architecture and tha instruction aat 

of the proceaeor to include floeting-point dete typee, full 

eupport for IEEE Rev 10.0 high level aath functions, and 

alao tranacandantal and othar atandard aath function*. All 

coprocaaaor calculationa ara performed to SO bite of 
praclalon. 

' Sim levele of prioritiied eutovector intarrupte froa eaven 
aourcaa. Two interrupt lourcn are internel ta tha board, 
three are froa tha Sua, and two (non-aaakae la ) are froa 
aourcaa connected directly to the CPU board. 

► Three eeperete hardware priorltiied channala for o«ternel 

OMA davlcea, Siaultenooua DMA raquaete on different 

channala ara arbitrated by tha board on e channel priority 
beela. 

of 



1 Megabyte 
The I/O davicee 



A 20-blt externel addraee bue for up to 
phyaicel aaaory epece (RAM end 1/0). The 1/0 
occupy tha upper 4K bytea of tha 1 Mbyta eddreae epece. 
Two aeperata araea ara defined within the 1/0 epece, each 
with optiaua tiaing for perticuler 1/0 davicee. (Note* The 
1/0 tlaing will not eupport any 6800/6809 paripherel 
devlcaa auch ea tha 68>0 or 6821. Serial end perellel 1/0 
le eupported only through G1MIX intelligent 1/0 
procaaeore. } 

Two CPR0M eockete that accept 8K, 16K, 32K. or 64K x 8-bit 
lnduetry atandard davicee for up to 128K bytaa of on-board 
flrawere. The tP*0Me ere addreaeed abova the 1 Mbyta RAM 
apace, with auto-eepplng of tha raatert vectore to low 
■t»ory on power-up or raeet. 

A full-featured hardware tftae-of-dey clock/celander with 
battery backup, which cm alao generata intarrupte at one 
eecond Intervale. 

A aeperete "tick* generator thet cen generete intarrupte 
at practaa, Juaper ealactable intervele renging froa tO 
aicroeaconda to 20 alnutee. Interrupte froa the "tick" 
genaretor cen be enabled or diaablad under progrea control* 
and have their own priority level to ainlalze overhead 
during context ewltching. 

A eeperete voltege regulator board thet powere tha board 

and provldee etendby bettery powar for the TOO clock. Tha 

regulator board raceivee ite input froa tha etandard power 
eupply In the C1MI* aainfreae. 



St. JamesS University Hospital 

6ecfcen Street Leeds LS9 7TF 
Telephone 0532-433144 

MOrt-XEYOOAJtD PAT* ZttTBY TO A bBOO ftUCftOCONPUTtP. 

A J Hal I 
8t Jeaee'e University HoipLti) 
Beckett Itttit Ludi LSg 7Tr 

1MTAOOUCTIOM 

pi^ltlnri or qrepb tablata convert qrephlcel coordinate data froa a 
dleqrea, asp. chart recordlnq or unti Into digital fori for analyaia 
or prottiilnq by foiputtt . Coordinate polnta r vhlch auet 11a 
within tha ictivi araa of tha digltiaer* ara specified by touching 
tha* with a pan-Ilka atylua. Tha Suaaaqr ephlce "Bltpsd Ona" (Tridi 
Hark) !■ an exeaple of what la available contrciillyt It operate* 
on tha eeqnetoetr let 1 v» principle with A currant pula* belag tint 
■Ions a "aand" wire lying at riqht anqlaa to a aeqnetoe tr le t 1 vi wire 
■*ah laid banaath tha p*d eurrece. Tha currant cauaaa the aaeh 
diaanelone to chenqe and tha raaultant atraln wava ta detactad by 
colli within tha atylua. An inbuilt aUroproctator CelColAtee tha 
coordinate poaitlon of tha pan froa the tut teien for tha wava to 
raaeh the ityluir It alao aeneei whathar tha atylua tip alcroewitch 
la cloaad or not and aeta a flaq accordingly. Oependlnq on the 
type of a it pad tha data It then output, aithar in Q bit parallel or 
In P.S212 aarlkl t or»*t . 

noois or DPtrirATtON 

Tha aioda and rata of aeeplinq data points can ba predst arai nad by 
intarnal awiteh aettinqi or ba selected under eoftwere control) 
tha latter la son flexible especially if tha bltpad le Interfaced 
to a ilcrocoiputtr. The HS?1? interfaced sitpsd ta controlled by 
sending en ASCII character to it* thli eeleete the deelred aeejpllnq 
rata of coordinate pelre and the operation aode. The todll are ea 

rollowat- 

Point Mode - on dapreealnq the atylua end cloning tha tip 
alccoawltcft tha bltpad outputs an X. t coordinate pair and rlef tor 
atylua up/down. 

Strata aode tha f leq end coordinate pair are output continuously 
while the stylus le either in contact with the ped or cloae to ite 
eur {see . 

switch Stream Mod* - dapraaaion of the etylue to eloee tha tip 
■icroawltch causae « stress of coordinate pair* end flege to be 
output until the etyloe te lifted to open tha t*p wicroawltch •"•(! 
thouqh the tip etill reaeine in contact with the ped. 

D*t* Toraat - **})? aerial and sfranqadi tt below 

)t>:x>t, xxYT,a CR L9 

The line feed (LPr le optional end ewitch eelecteblei tha date te 
Ln ASCII DCO toiatt vhtn X - X tilt velue T - V exit value. 1 - 
or 1 and flaql tha atata o( tha lip sletoawltch, 

IMTSHrnCIrtC THB elTPAD 

I heve uead en A9232 bltped connected to a 8VTP %900 alcrocospgttt 
via e eerlal Interface at P-ort O. The baud rate and atop bite of 
tha lltpad ahotfldr of courae* correspond to that of tha lnterfeee. 
Cossee srs used to aeperata aech block of coordinate and fleQ data 
and tha atrlng le terslnatad with a carriage return. The foreet la 
ldenttcel co the keyboeed input aapectad in rupoAii to a Baalc 
"Input- statesant to to coataunlcate with tha bitpad onijr tba I/O 
vector in 8WTSUC hee to be changed . froa Port 1 to Port O, ThtB 
le dona by e "POJCI" atataaent to altar the contents or tAOOe {40971 
dacisall froa 04 to OO, Thia titan the port addreie froa 4B0O4 to 

$»eoo. 

Directly eceeealng the lltpad froa your leeie progrea in thla partner 
stani thet only the point aode cen be uaadt It generates one eat or 
Coordinate dete when tha stylus la depressed* the other modse 
produced Blrinqe Ot date and these will not ba acceptable. $0 
■sehlns cods •ubroutinae ara naceaaery utilising SUTkUC SBBSB Input 
routine end detecting the carriage return to eeperete the coordlnet* 
pelre and tlege, Mowaver for eauy purpoeee the Point aode le all 
that le needed eq eelectinq optlone on a aanu or eperlfying ipeclftc 
points on e curve. 

At the end of eny ecceae to Port 9 the I/O veetor should be reeet to 
port 1 eo thet the keypoerd cen be uead for debugging the progrem 
during development. The routines are ea follows! 

SCLICT P0141 MOOR 

This le done once ac tbe etert Of your progrea unlaee you intend to 
change ftodtt while t&e proqrea le running, in which ceee It should 
bs celled a subroutine. 

PORX C«09?l,0) PEW SBLtCT POST O I/O 

PHIrtT «P* PKW P lets pad to point aode 

POKK t«0971,<) PEM 4/0 to Port L 

as we ere working In Itiie the port sddraaaa* have to be In decleel 



[■PUT Or DATA rHOH BITPAD 

Meving selected Point aode e general routine le needed to get date 

froa the ped. On* la given below. 

POKE I4U9?!,0| PIM I/O to Port O. 

laPUT k.V.r B8H wait for input 

POJCI B«Q971,«| akn I/O back to Port 1. 
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Thus a tmm alapla Ittlc <oiiin4i allow tha titpad to be acta**** and 
data obiiimd for a profria to opiriti on. 

OAT*. tUTDr Vti*C TNK miTPAO 

Oaa aaaapla la tha aaalyaia of aultipla cboica quaat lonna * r aa «*»fi 
(hi Idtaift 4ra indicium by tlcaa *n tl\a appropriate OoHtl. Tha 
fori ia placad aQalnat rafafaeca urti on tha titpad to that tha 
lotitioni or tha ttiwtr boaaa ara dafinad. Ona approach* which 
«n*k>r** that, your pro«raa win alwaya raapond in a pradlctabl* 
nannar, la to divida tha araa or irtii within which tha tntvt pom** 
11* Into tha alananta of a bail? two dinnilonil array which I will 
call HY.xIt aaa Ma 1. On antry to tha profru tha array la 
filled with l'a and than (pacific location* ara nt with nuibiri In 
iiciAdmg ord«r 12. 3*-»»atc> . fach uuabir dorreaOond* to a 
•pacific anawar and wa can control proQraa branching uilnq tha iaalc 
knitruction on X GOTO---, If a blank araa la accidentally touched 
PiV.X) yit'll a 1 and tha (irat addraaa in tha On X GOTO Instructions 
it 4 routlna wbi<h etvae an mot iiiiifi and awaita further Input. 
Tha iltpad haa an activa araa of ll" a U" and * riiolutlon of 
.0009". th»a tha coordlnataa can ranaa fron 0-2200 In both * *ad Y 
with tha orium at tha ootton latthead corner. The valu** returned 
by tha sitpad will ila la thia range and thay suit ba aralad. ao that 
integer vilutt of X and Y ara prodecad to addraaa tha array Pit,*). 
*. typical aireapla la livtn balow. 



ftXM AO. VO ara tha anawar araa orlglna. 
PC* I. Y ara coordinate* froaj atyloa. 
ABM * la tha length of ona afe* of tha 
RBM of tha anawar egoara In .0005 unit*. 

■ calt anawar from J up 



X - X - IO 

¥ - Y * VO 

X • XVS 

V - »/5 

X - SttTlXI* 
y - jitcyI* 
x - FlY,X> 
ON X 00T0 

Additional trapa can ba inaariad bafora tha ititmnt X»» in , 
handla valuee greater or lata than tha array dlnetteloe*. 

AUHHAHY 

Tha Intarfac 
rtP«s intatia 
it can ba 
atetiaente. 
COnf ifut atlo 
la different 
for data ant 
your prograa 



f a aarlal vereioo of a ■uanegrepfcice aitpad vie a 

ca loeatad at Port la ample aad etreigftt forward and 

accaaaad dlractly fron a Iaalc prooraa by ampla 

Tha fcutpad will liava to ba aat to a u it tha 

, of Port 0' ion Inlet aat it to a configuration that 

to tha SvTPVC configuration. If tha fitped la weed 



in an araa 
can aaally 
peletlone ri 
by a \ whll 
fraa nuobar 
daal with 
altarad tha 
but oany laa 
you ara ucln 
haadad bafo 
ahould ba al 



bthivM ia a pradlctabla neaner If tha atylua la pieced 
whara thara ara no anawar bona*. In addition a prograa 
altarad to ecconaodet* addition* or dalatlona. 
tuln tha appropriate valua la tha array to ba replaced 
a addltiofte require tha replacement of a 1 by tha naxt 
in tha OK X GOTO **<Juanc» and tha addition of coda to 
tha «a*ponaa. Tha eeeaplea given for generality hava 
1/0 vector by aaana of POXt alalaaania to accaaa Port 
lea provide a "Port" eteteaeat to do thla. However if 
g SVTP'e Ittlc varilon J.J tha following corrections ara 
re tha "PO*T< ataiaaant can ha uead. location I14|c 
tarad froa 1)4 to 110 and 11721 from IC2 (;o «C«. 
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Dear Don, 



mi) LYNN AVENUE. 
ABBOTSFORO. 
BRITISH COLL MBc A. 
CANADA. WSlfc2 



This month's offering represent* quite a departure 
from those submitted in tbe peat, in tbat matchiog 
cheoges hsve had to be made to tbe trio FLEX, COPY aod 

CAT. 

I began by writing an overlay for FLEX to allow tbe 
TIME of a file's creation to be atored in tbe 
Directory* •■ well es tbe date. This obviously scant 
tbat COPT alao bad to be modified to preserve tbe 
time-code during copying, plut CAT in order to diaplay 
tbe decoded time-byte in tbe form 17:24* Encoding of 
tbe time-byte ia compatible witb tbe "standard" 
developed by Peter Stark in bia TCAT (which, by tbe 
way, will atill be needed to time-SOKT a catalog), 
witb tbe exception tbat my modificetion can 
diatinguiab between midnigbt (0:OQbra) and a non- 
encoded file. 

Aa I uae only Leo Taylor'a CAT and COPT utilitiea, 
I've modified juat tbeae two to match witb tbe FLEX 
overlay. Tbe patcb to C0FY ia minimal but 
unfortunately . in order to eccommodlate all tbe extra 
code neceaaary to petcb CAT and atill aqueese it into 
tbe Utility-Command area, I've had to c<atpletely re- 
write it ia 6909 Aaaambler. So 6&0# naera are out of 
luck, aa I dnn't think it'a adviaable to relocate CAT 
in low memory* I ended up with enough room to 
incorporate a Random-File indicatax aa well. Theae 
goodies will, of courae. only be diaplayad if the '_^ 
or *H* optiona of CAT are exerciaed. The end retUaQ 
ia that CAT ia really too big to merit re-printing 



again in 66HJ» (though thia ia entirely up to you) ao 
I'm aending it to you on diik, together with the FLEX 
overlay aod the completely patched COPT command. Tbe 
new CAT alao diaplaya the Diak-tiame AND Extenaion, 
while a matching upgraded DATE command permita 
changing thia extenaion. Sorry about tbat, Leo, aod 
apologies to Ron Anderaon tool! 

Readera may therefore obtain the complete act from 
your diak library, though in order to get them going 
it might be at- well to publish CLOCK .ASM, which ahould 
be aaaembled mm CLOCK. 0VL, and the patch to COPY, 
which it : 

Locate NOTBND in Leo'a COPY utility aod patch 
NOTHHD TST UPDPLC 

BKE WRTH0R 

LDAA SRCFCfi+24 Get Time-Code * New Code to 

STAA 24,X and aave for copying * be inserted 

LD*A SRCPCB>25 etc 

Tbii way they can begin tims-coding their filea ready 
for when they obtain the upgraded CAT to diaplay it. 

Sincerely, 



E. Jones 
President 

PS Ho free aubacr ipt iooa , pleaaet It's MUCH more 
importsnt to keep 68 HJ going. Like your other resder 
I wish it were s weekly journsltlll 

To KM up the d,sk Vie tKroiVA in a fewctlW unM7*s 
wVieK ts/e a-nkdnoeJ i* some way pD€L ; A cc[iaiofat~ 
ion wttK Lgd Taylor. 

Editor's Note: Hithout a doubt, 1 n th§ tost iortuwiti 
!uy im tht '*ori4. I c*Vt thill oi tsotbtr jourtal that 



I 



>*)5 sttch itasilfish suport as «r do. 

Trsjs sat will b§ oiiind as '60 Hjcro Journ/ tiadirs 
Scrricf disk auabtr 19,' I aoider hou i»y oi yoo nadirs 
rtalin that a raal baraau thisi sirtia disk an? This 
disk aloai Has itillutl that ii thay *tn purcbasad mt 
as binary atihtiis, thiy mm id sill, say, oa thi K aatkit 
1or onr $2§h4§§ bucks/ lhats right, thair stuff is that 
ixpnsivi, aad ia aost casts, thay doa't tru hava this 
sort of stuff, had ban yon t¥aa qtt sovrct* 

Oa tbf foal* Rac(c) aarkat thty just doa't hiwa 
aaythiaq lika this, 

Bab. all 1 caa say is - FHmS, ftQI HI Of OS mi 47 

68 mio mmt m wvsws of qihih nmts. 
mmMnmmn 



Btlo* is a dmctory of disk auabar 1$, 



m 



ninn mmiifictoiB t cnmiiii-m-n 
win mi Tin BE6U m sm we m 



l CLOCK 


JSK 01-01 11-15 


5 


U-JffpV-85 


J Wt 


.ASB 01-01 04-OB 


33 


hW-B4 


3 COPT 


jsb 0409 /;-#; 


134 


5-JM-85 


4 CAT 


JSB /M3 17-09 


57 


JWM-85 


5 nu 


.MB /7-tM I Ml 


n 


B-BEC-B4 


i mi 


.BBC I Ml IhOh 


J 


B-BEC-B4 


7 MOBS 


MS IB-Ol iB-Ok 


31 


IMiMJ 


B W 


ABB 1E-01 ;M5 


45 


7-BAT-B5 


9 OB 


.BBC ;M6 24-12 


17 


7-l)iy-85 


1 LOB 


ABB 24-IJ 25-18 


U 


3/-l)i)r-l5 


1 IBB 


.BBC 25-W 26-14 


i 


IMBM4 



FiaS'JI 8/fifiM34 T0NM74/374 fttt'U 
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UNIBOARD Ganpttter F^jfcs 



Eric Sillanpaa 
134 Pleasant Drive 
Sault Ste. Marie, Ontario 
Canada P6B 4E2 



what determines the stepping rate for the 
disk heads? My drives will operate at 6ms. 
but I have not found the correct time delay 
to reduce yet. 

Yours truly, 
Eric 



Dear Don, 

I have a UNIBOARD computer that I 
purchased from Digital Research Computers 
and I am very happy with it. 1 purchased 
the bare board and populated it myself. 

Here are some hints that other owners 
may find helpful. A bell can be added by 
tying a .5 second one shot to U26-7. The 
one shot should drive an invertor that will 
be used as a buffer to drive a small solid 
state alarm such as a Sonalert. Control G 
will then sound the bell. 

The Uniboard manual implies that the 
board will operate with either 5 or 8 inch 
drives just by changing the setting on the 
configuration dip switch. This is not 
correct. The board will not work correctly 
with 5 inch disks as it is. R33 and C41 
must be changed from 33 ohms and 0.33 mfd. 
to 66 ohms and 0.66 mfd. It is also 
important that RP6 be 150 ohms. This 
should cure intermittent double density 
read problems. 

The Unimon monitor is not provided 
with a routine to select sides even though 
the side select line is decoded. 1 added 
the side select routine to Seek as shown in 
the listing. I also modified Newdisk the 
way S. D. Lyon did in June '65 M.J. to 
work with 16 sectors per side. 1 did not 
use any routines past write track because 
they are on the Rom. 

1 had no 2732 Eproms so I used a 2764 
by programming the last half and then 
strapping pins 1,2,36139,40 together. 
1,2,39, and 40 are then either cut off or 
bent out and it is then placed in the 
socket at U14. 

1 use two Shugart SA455 DS/DD half 
height disk drives and I am very happy with 
them. It is nice to have 1404 sectors 
available per drive. 

Would you or any of your readers know 
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ERRORS. SYS Patch 



tfcil aa* ho o* us* to othtrt hho «ri u»n r L£i. 



Yours aincarolv. 



Pleas* find encloses 4 patch to FLEX that curt* ft rather 
annoying Uim in this othorMi** 9»"*at Piaco o< ftottuara. 
E^rv tiao soaa proftraa call* a Hi* that can't ba found, 
this will ba reported, but there is no -*v to tall the naae 
of tr>a 4ila, that tht proa,raa is loeMnfl for. Thim is for 
titaolt tha cava *hen tht assaablsr n lookinQ {or t 
U0-*ilf «Mch isn't thorp. 

Tha raaso* is that RPTERR uitm tha lyitaa FCa ah«n it 
translate* th» error typo to a aosssgs in ERRORS. SVS. and 
lines tha file not found also xai in this FCI, all 
inforoAtlon i« lost. 

Tha cura is rathar sieplai U»t another FCB in tha RPTEft* 
routlns, Balo«» i* a *oa)l patch (actually only too oytt* 
naad to ba changad) to laplaeent it. I usa tha FCB ttarting 
at sCACO that otheroita i« uaad by tha spooler, but any 
froa art* oay be uaad. Thara aay also be chingai froa ona 
version of FLE* to anothir » but 1 anutt you could always 
do like tMai 

First find tha addraa* of tha RPTERR routin* in SCD5F. and 
then follow tha listing bale* until you find the correct 
place to aaha tha change. This has to be done directly on 
disk uiing a progrta lit* DISkEDIT or REPAIR. 



Following is the routine as it is inoleaented in ay version 
of FLEXi 



SI 



RTS 





1 Roper 


t arror 


reutina 




As 01 


R£RR 


LOA 


l.X 


Chock srror statu* 


17 CC20 




STA 


ERRTVI* 


and *avt it 


27 FB 




B€fl 


RNDCRR 


Raturn if no srror 


*• 30 




PSM6 


ItY 




10 C0E7 




JSR 


RES 10 


Standard 1/0 


106E CC2D 




LDY 


ERRVtC 


Usa 'ERRORS. SYS* ? 


2e 08 




ONE 


MQTSYS 


Me, special Hlo 


Bl 10 




Cft>A 


• 16 


Drivo* not raadr 7 


27 S3 




•Eft 


NTRDY 


Report it 


10BE 03«C 




LDY 


IERRFIL 


Point Y to 'ERRORS. SYS 


BE CB40 


M0ISY5 


LDI 


•SYSFT8 


Sy«taa FCB 


Ab 02 




LDA 


2.1 


Ft la ooan"^ 


2? <W 




B€9 


NOOPCK 




•6 04 




VDA 


• 4 


If so, closa It 


A? 84 




8TA 


.* 




ID P40* 




J BR 


FrtS 




26 2J 

be E52D 




BNC 


ROSIER 


Disk error 


NOOPEN 


LDX 


•JEfiBtd** 


Uia another FCB 


C6 01 




LDB 


til 


Put In file nass 


80 66 




08* 


COPVT* 




45 52 52 4F 


ERRFIL 


FCC 


' ERRORS', 


,0,-SYB" 



To have a rpport of tha naoa in the systea FCB, the 
follooinQ routina say be used. It naturellv has to ba 
rati bent and i* linked to tha list of arsto* coaaand* as 
dtscribed in tha FLEX users aanual. 



8E 


D3AT 


OCRD 


LB* 


•t*So 


Shoo aevsegt 


BO 


C01E 




JSR 


PSTRtaj 




8E 


C863 




LDX 


•SrSFCBOS 




As 


80 




LDA 


.x* 


oet drive a 


80 


30 




ADDA 


a'O 


naka ASCII 


BO 


C818 




JSR 


PUTOfR 


Shot* it 


OS 


2£ 




LDA 


• \ 




BO 


C018 




JSR 


PUTDfR 




Co 


08 




LDB 


• 8 


Shoo rase 


80 


OC 




088 


QtoVU 




86 


2E 




LDA 


• '. 




BD 


can 




JSR 


POTOol 




Co 


03 




LDB 


•3 


Shoo ok tension 


BD 


03 




BSR 


GPoVCP 




n 


coos 




JRP 


(MAPS 




As 


80 


wmj> 


LOA 


,«♦ 


Set Character 


BO 


COlt 




J BR 


PUTOel 


Shoo i t 


5A 






occt 




DeCreaont counter 


26 


FB 




PC 


0NAM.P 




3* 






RTS 






46 


69 6C 65 


9*S6 


FCC 


•file in F 


C8i '.EOT 



c/d(U- 



Niels Oeston 

Broandbyvsstervej SO 1* t*. 
Or-2a00 Blostrup 
Denmark. 



>10RN|\G ADVOCATE 

STATE-TIMES 
JSUNDAY ADVOCATE 



O0K >M S*TO*tOUQd. IA7VS214»MPH.<SM| Willi 

Gentlemen: 

Anyone interested in a 6805 one chip computer 
user group, please contact me al (he address 

below. 

We are currently in the process of writing a 
real time multitasking kernel. 



Sim 



CsjreLy. 



(jo¥uce^Tckna 



}\fym> 



ick nair 
State-Times a Advocate 
P. O. Box $68 
Baton Rouge. LA 70021 
Telephone: $04/383-1111* ext. 163 



•J TC^HNOLOOICS 

asi € nth Avs 

Vsncoovov, 8 C , Canada V5N tZ7 

NEW PRODUCT ANNOU NCEMENT 

512K RAM Expanalon 
for the ST-2900 

Sardls Technologies are pleaaed Co announce a major 
addition to their 6009 baaed ST-2900 ayaten. The nev 
RAM-512 board plugs Into the ST-2900 'a expansion 
connector to add a half-megabyte of memory. The nev 
stfBBory board flta between the existing CPU and FDC 
boards to form a very compact three board "aandvlch". 

Greatly Improved system performance reaulta from ualng 
the added memory aa a high-speed virtual dlak. The 
huge storage capacity -~ A0X more than a double-sided « 
double-density 40 track 5" dlak — handles large aorta 
and ccwpilea with room to spare. RAM-DISK driver 
routines and memory diagnostic utilities for FLEX or 
OS-9 are Included with each board. Also currently 
under development for the RAM-512 are nev dlak driver 
routines for FLEX to dramatically speed up reading and 
writing to floppy dlak. 

The RAM-512 uaea a proprietary dynamic RAM refresh 
circuit, based on the odd/even technique, that 
guarantees sll memory locations sre refreshed well 
within specifications, but avoids the severe "over 
refreshing" found on some other designs thst 
unneceaaarlly Increases power consumption. 

First deliveries are scheduled for September 1905, 
with the price expected to be under ($US) $495. 
Please contact Dave Wlena at the address sbove for 
more details, or phone (604) 255-4405 regsrdlng 
delivery snd pricing- 
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Incompatible Disks -Another Solution 



The article entitled. "Inconpatable Disks", by S.D. 
Lyon in the June 1985 Issue, page 38 described the 
problems using Peripheral Technology's PT-69 computer to 
read disks which were not formatted on that computer. 

I alao have run Into problems using my PT-69 
Computer to read double sided or double density disks. 
My problem was compounded by the fact that my PT-69 
computer has a Western Digital 2797 floppy disk 
controller. This chip has a side select bit In the 
command register which MUST match the side code found In 
the Identification Mark on the disk It Is reading. As 
S.D. Lyon pointed out, the output from the side select 
bit la used by Peripheral Technology to select the 
proper density for the reading. The upshot of these 
requirements Is that It Is Impossible to resd normal, 
single density, double sided IBM format or 0S9 format 
disks on my PT-69 computer. This Is becauae the side 
select bit moat be set to $01 to match the side code on 
the disk AND It must also me set to $00 to cause the 
2797 to read the disk In single density. 

To solve this problem I took s different tack from 
S.D. Lyon. Rather than rewriting the disk formatting 
program to create non-standard disks, I modified the 
hsrdware of my PT-69, The modification requires no 
additional Integrated circuits and, In fact, uaea one 
lesa gate than the original dealgn. The purpose of the 
changes sre to allow the aide and denaity to be selected 
sepsrately from one another. 

The necessary changea are shown on the enclosed 
dlsgrsm. The solid lines show the original circuitry; 
the "x'a" ahow cuts In the existing tracea and the 
dashed lines are the added wlrea. All of the cuta and 
patches can be made on the bottom of the PT-69 board. 1 
uaed wire wrap wire for the three new connect lona. 

Once the changes are made, D6 in the Drive Raglater 
($E0lO will aelect aide (0 - Side 0, 1 - Side I) and D7 
will aelect denaity (0 - Single Denaity, 1 ■ Double 
Penalty). Thla modification la compatable with the 
atandard TSC boot aa a reaet cleara the Drive Reglater 
and seta the controller to Side 0, Single Density. 

The disk drivers uaed with the PT-69 will have to 
be modified ao that they will properly aet the Side and 
Denaity blta In the Drive Reglater. A aet of dlak 
drivers which I hsve used successfully with the modified 
PT-69 is below. This disk driver Is bssed on 
0R1VERS.TXT by Leo Tsylor. If you hsve the source code 
for the PT-69 patches to FLEX, you csn sssemble this 
code and incorporate it tn s new FLEX. SYS file. If you 
do not hsve the PT-69 drivers source code, you can 
sssemble these new drivers snd then APPEND them on your 
current FLEX. SYS. When FLEX. SYS Is losded they will 
losd over the top of the old drivers. 

So fsr I hsve found no bugs In either the hsrdwsre 
or softwsre modlf lcstlons. I hsve used them to resd 
both OS-9 snd Rsdlo Shsck dlaka. The software 
automatically awltchea denaity aa needed to read theae 
dlaka. When I flrat teated the drivers, I tried to read 
a Radio Shack disk ualng my DR.CKD without knowing how 
It was formatted. 1 waa able to read It without 
difficulty. It waa only after I looked at the bytea In 
the driver which ahow the disk format that I discovered 
thst the dlak waa double denaity. 

If you waot a copy of the aource code for the dlak 
drlvera, aend me a blank dlak, and a mailer with postage 
attached and 1 will aend you a copy. 



Ken Dreiler 
311 Wllaon Way 
Larkapur, Calif. 



DISK DRIVERS FOK FLEX 9 

File Haae: F0RVPT$9.SRC 

Data: November 23, 1983 

Revlssd December I. 1983 to use DRQ and 

lNTftQ tutus bits 

Revised Oeceaber 4, 1983 to Add double 

density code. 

Revised Oecsaber 27, 1983 to iiait 

CHECK to the nusber of installed drives, 

Revlssd Deceaber 14, 1984 to correct code. 

Revised Hay 4, 1983, to conCora lo hardware 

changes on the PTb9'i side select snd 

density logic. 

Designed (or use with s PT-69 Caaputer 
using up to (our 5 1/6 Inch double 
aided, double density drives. 



DRIVE REGISTER USAGE: 
DO, Dl - Drive select 
D6 - Side select: 

D7 - Density select: 



■ Side 
- SO; I 



DO 



Side Select li through Db In th« Drive 
Register: D - Side 0; 1 <• Side I. Also 
the Cassund Reglater bit Dl HUST *atch th* 
■ lde byte In the disk's ID li«?ld. On KLEX 
single density disks, this Held is $00. 
regardless of the sctusi aide. 

A read o( the Orlva Register returns 
DRQ AS D7 and IHTRQ as 06. 



PLEX9 ELATES 
CDIO COLDS EQV $CD00 
CC14 PBPL4C KQU $CC34 

• CONTROLLER SQUATES 



E014 


DRVREC 


EQ«J 


$E014 


EOltf 


C0HREC 


EQU 


0RVRSG44 


KOI 9 


TRKREC 


EQU 


0HVRE(;+> 


KOI A 


skcru; 


KAJU 


l>KVKt&+b 


EOIB 


DATRUC 


eqv 


OR V REG* 7 



PRINT SPOOLER ACTIVE 



WD X79X CONTROLLER 



• KlSCELLANEfWS EQUATES 

0002 SS0BIT EQU tOOOOOOlO Dl IN COMiAND 

UtttU DHSftlT EQU XIOOOOOOO 07 IN DRIVE K£G. 

0040 SlDBlT EQU tOlOOOOOO Db IN DRIVE REC. 



0001 



• HIGHEST NUMBER DRIVE INSTALLED 
NAXDRV BQU I DRIVE O, 









• FLEX 

a 


DISK 


DRIVERS 




DE00 






ORC 


$0*90 


(AVAIL. THRU $DF6F> 


>DK00 


7K 


UE2E 


READ 


JHP 


KKALU 


READ SECTOR 


DEO 3 


7E 


DEBE 


WRITE 


J HP 


WR1TE1 


WRITE SECTOR 


DE06 


7E 


DEEC 


VERIFY 


JHP 


VRIFY1 


VERIFY SECTOR 


Dfc09 


7E 


DSFB 


RESTOR 


JHP 


RKSTRl 


RESTORE TO TRACK 


0E0C 


7E 


DF04 


DRIVE 


JHP 


DRIVE] 


SELECT DRIVE 


DJCOK 


7IE 


DP42 


CHUCK 


JHP 


CHECK I 


CHECK DRIVE READY 


DE12 


7E 


DF4F 


QCHECK 


JHP 


QCHBKl 


QUICK CHECK READY 


DEIS 


7E 


DE9g 


D1NIT2 


JHP 


DIN1T 


NOT NEEDED 


>0Kl« 


7E 


DE98 


WARM 


JHP 


D1N1T 


NOT NEEDED 


>DEIE 


7E 


BE5C 


SEEK 


JHP 


SEEK* 


SEEK TRACK 








• VARIABLES 






DEIE 


00 




CUR DRV 


FCB 





CURRENT 0R1VE NUMBER 


DEL? 


in 




CURSTP 


PCH 


$11 


CURRENT STEP SPEED 


DE20 


00 




CURONS 


FCB 





CURRENT DENSITY 


DK21 


DO 




CURS ID 


FCB 





CURRENT SIDE 



• Track Table stores head position (track) 

* for each drive when it la not being used. 





* 








DE22 DO 


TRKTRL 


PCB 








DE23 00 




FCB 





I 


DE24 00 




FCB 





2 


DE25 00 




FCB 





3 
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* Drive etep tpeed In **«c (WD 1791) 



$18 $19 $IA $18 SEEK, HLD. NO VRFY 





* Five In. 


6 


12 


20 


30 


HS 




♦ ElgKt In. 


3 


6 


to 


15 


HS 


DE26 18 


STPTBL PCB 




$18 









DE27 18 


PCB 




$28 




I 




DE24 t$ 


PCB 




$16 




2 




I>*2«i lis 


FCB 




$18 




3 





* WASTE TIME FOR COMMAND 



DE99 80 


00 


DELAY 


BSR 


DELAY2 


DE98 8D 


00 


DELAY2 


BSR 


DELAY3 


0E90 8D 


00 


DELAY 3 


BSR 


DELAY4 


DE9F 39 




DELAY4 


RTS 





* Deniity Table 

• 00 - Single denelty, $FF - Double density 



DE2A 00 


DNSTBL 


PCB 








DK2B no 




PCB 





I 


MiC UO 




FCB 





2 


DE2D 00 




PCB 





3 



DEAO 7D CC3A 
DEA3 27 03 
DEA* 113F 
DEA7 12 
DKA8 39 



• CHECK FLEX SPOOLER 

* 

SCHED TST FBFLAC 

BEQ SCHED9 

SW13 
NOP 

SCHED9 RTS 



SPOOLING? 
NO, EXIT 



• READ SECTOR AT TRACK A, SECTOR 8 



DE2E 8D 
DE30 86 
DE32 8D 
DE34 80 
DE36 IA 
DC3* B7 
DE3B 80 
DE3D C6 
DE3F 20 

DE4J S6 
DE44 A7 
DR46 F5 
0E49 2H 
DE48 27 

0E40 Pb 
DE50 C5 
DE52 27 
DC54 73 
DE57 C5 
0E*9 JC 
DE58 39 



DE5C F7 
Db>F BO 
DEbl 4D 
DE62 27 
DE64 70 
DEb; 26 



DE69 CI 
0E68 23 
DE6D 20 



DE6F CI 
DE71 23 

OE73 C6 
OE75 P7 
DE78 20 



0E70 Bl 
DEAD 27 
DE82 B7 
DEB5 80 
OC67 Bo 



DEBA B7 
DEBO 80 



2C 

8C 

7* 

bA 

10 

EOIH 

5C 

CO 

05 

EOIB 

BO 

E014 

F6 

F9 

E018 

10 

03 

D*20 

IC 



EDI A 

3B 

D5 

0E20 

06 



OA 
OD 
04 



10 
07 

FF 

DE21 
03 



DE7A 7F DE21 



E019 

16 

E01B 

12 

DE1F 



E018 
OA 



R£ADl 



BSR 



LOA 
BSR 

READ2 BSR 
SKI 
STA 
BSR 
LOB 
BRA 



SEEKI 
#$8C 
SETDC 
SCHED 



R£ AD 1 SECTR. HD DLY, SIDE 
SET CONTROLLER. DRV. R£C. 
CHECK SCHEDULER 



COMRBC 

DELAY 

'XILOOOOOO SET DRQ, INTRQ MASK 

READ* 



READS 



IDA 

STA 

BITB 

BHl 

BEQ 

LOB 



DATREC 

,X4 

ORVRKC 

READ3 

RUAD4 



GET OAT A 
STORE IT 
GET DRQ, INTRQ 
DRQ? YES, LOOP 
INTRQ? NO, LOOP 



COKREC CET STATUS 



BITB #$10 

BEQ P.EAD5 

COM CURDNS 

READ* BITB #$IC 

CLI 

RTS 

* SEEK TRACK A SECTOR B AND SET SlOE PLAG 



RNF ERROR? 

NO 

YES, FLIP OCNSITY 

SET RNP. CRC, LOST DATA 



SEEKI 



STB 
BSi 

TSTA 

BEQ 

TST 

BNE 



SECRKG 
DELAY 



SET SECrOR 



TRACK 0? 
SEER2 YES, OSE SD SECTOR COONT 
CURONS DOUBLE DENSITY? 
SEBK3 YES, USE DOUBLE DENSITY 

COUNT 

* USE SINGLE DENSITY COUNT 

S&EK2 CM?B #10 NO, SECTOR OVER 107 
BLS SETSO NO, SET SIDE 
BRA SETS I YES, SET SIDE I 

• USE DOUBLE DENSITY COONr 

SEEK3 CHPB #16 SECTOR OVER J6? 
BLS SETSO NO, SET SIDE 

SETS1 LDB #$PF SET SlOE I FLAG 
STB CURSID 
BRA SEEX6 



SETSO CLR 

SEEK6 CHPA 
BEQ 
STA 
BSR 
LOA 



* DO COMMAND 



STA 
BSR 



CURSID 

TRREIC 

DINIT 

OATRKC 

DELAY 

CURSTP 



C0ME4C 

DELAY 



SET SIDE 

SAME AS BBPORE? 

YES, EXIT 

PUT TRACK IN POC 

CET SEEK COMMAND 



DELAY AND WAIT 



0EA9 F6 
DEAC 7D 
DEAF 27 
DEB1 CA 

DEB3 7D 
DU6 27 
DEB8 CA 
DEBA F7 
0E80 39 



OEEE 80 
DECO 86 
DEC2 80 
DEC4 8D 
DEC6 I A 
DEC8 B7 
OECB 80 
DECD C6 
DECF 20 

DEDI B7 
0ED4 A6 
0E06 F5 
0E09 2* 
DEDB 27 

DEDD F6 
DEEO C5 
0EE2 27 
0EE4 73 
0EE7 C5 
DEE9 IC 
DEBA 39 



DEIE 

DE21 

02 

40 

DE20 
02 
80 
E0I4 



9C 

AC 

E5 

DA 

10 

E018 

CC 

CO 

03 

EOIB 

80 

E014 

F6 

F9 

8018 

10 

03 

0*20 

5C 

EF 



SET DISK CONTROLLER ROUTINE 

IN: A - COMMAND 

CURSID AND CURDNS SET 
OUT: A - COMMAND UPDATED, IF NEC. 

DRIVE REG. SET FOR SIDE AND DENSITY 
NOTE: Thia version «**ug*« that the 
Side Byte on the dlek U always sat 
to $00. It your dleke are formatted 
with an honeat aide code, Intcrt the 
code •arked XXX. 



LDB 


CURDRV 


CET DRIVE NO. 


TST 


CURSID 


SIDE I? 


BEQ 


SETDC I 


NO, SKIP 


ORB 


#S1DBIT 


SET SIDE I IN DRV 



• OKA #SSOBIT SET SLOE IN CMO RSC. XXX 
SETDCI TST CURDNS DBL. DENS.? 
BEQ SETOC2 NO, SKIP 
ORB #DNSBIT SET DO 
SETOC2 STB DRVREG TELL CONTROLLER 
RTS 



• WRITE SECTOR TO TRACK A, SECTOR B 



WRlTBl BSR 
LDA 
BSR 

WRITE2 BSR 
SEl 
STA 
BSR 
LOB 



WRITE3 STA 

WRITK4 LOA 
WRITS 5 BITB 
8MI 
BBQ 

LDB 
BITB 
BEQ 
COM 
WRHS6 BITB 
CLI 
RTS 



SEEK I 
#$AC 
SETDC 
SCHED 



WRITE I SCTR t HD DLY, SIDE 0. 
SET CONTROLLER AND DRV. R£G. 
CHECK SCHEDULER 



COHRXG WRITE COMMAND 

DELAY 

#111000000 SET DRQ, INTRQ MASK 

WXITE4 WRITE DATA 

DATREG WRITE CHAR 

,X* GET CHAR FROM FCB 

DRVREG GET DRQ, INTRQ 

WRITE* 0RQ7 YES, LOOP 

WRITE 5 INTRQ? NO, LOOP 

COJ4REC CRT STATUS 

#$10 RNP ERROR? 

WRITE6 NO 

CURDNS YES, FLIP DENSITY 

#$5C SET WP, RNP. CRC, LST 

DTA IRE. 



* VERIFY LAST SECTOR WITH DUMMY RKAO 



DEEC 86 


88 


VR1PYI 


LOA 


#$88 


DEKE 80 


B9 




BSR 


5ET0C 


DEPO 8D 


A* 


VEIPYl 


BSR 


SCHED 


DEP2 IA 


10 




SEl 




DEF4 8D 


94 




BSR 


OOCOM 


DEF6 CS 


18 




BITB 


#$18 


DEP8 IC 


EP 




CU 




DEPA 39 






RTS 





READ I SCTR, NO DLY, SIDE 
SET COimOLUR 

CHECK SCHEDULER 



SET RNP, CRC ERRORS 



* WAIT UNTIL READY 



* RESTORE TO HACK ZERO, SIDE ZERO 



DEBF BD 


OF 


WAIT 


BSR 


SCHED 


CHECK 


DE9I F6 


BO 18 




LDB 


COMUG 




DE94 C5 


01 




BIT1 


#1 


BUSY? 


0E96 26 


P7 




BNE 


WAIT 


YES 


DE9B 39 




DINIT 


ITS 







OEJB 80 


07 


RESTEl 


BSE 


DR1VE1 


SELECT DRIVE 




DEFD 86 


OB 




LDA 


#|B 


ECS I ORE, NO HLD, 


NO VRFY, 


DE FF 80 


89 




BSR 


OOCOM 




30MS 


OPOl C5 


OB 




BITB 


#106 


SET ERRORS 




DPI) 3 39 






RT» 









SO 
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• SELKCT DRIVE FKOH PCB AND SET SIDE ZERO 



RFvatft PT-tq SSOtHnCN Ue.tc 



DP04 34 


10 


DftlVEl 


PSHS 


X 




DP06 A6 


03 




LDA 


3.X 


CET DRtVE NO, PROM PCB 


DPOB Bl 


03 




CMPA 


#3 


OVER 3? 


DFOA 22 


29 




SHI 


0VER3 


MO 


DFOC BD 


2C 




BSR 


FNDTRJC 


PO.HT AT OLO TRK IN TABLE 


DPOE P6 


BO 19 




LDB 


TRJCREC 


CET TRACK 


DPU £7 


64 




STB 


o.x 


SAVE IT LN TRRTBL 


DF13 P6 


DE20 




LDB 


OJRDHS 


CET DRIVE DENSITY 


DP16 »7 


OB 




STB 


8,X 


SAVE IT 


OPIB B7 


E014 




STA 


DRV RIG 


SET NEW TRACK 


OPta B7 


DE1E 




STA 


CURDRV 


SAVE A COPY 


DPtK HU 


IA 




BSR 


FNUTRA 


POINT AT NKW DRIVK IN TBL 


DF*l> A6 


04 




LDA 


4,X 


GET URlVt STEP SPEBU 


DF22 B7 


OUF 




STA 


CURSTP 




0P2S hb 


OR 




LDA 


B.X 


CET DRIVE DENStTr 


UP27 B7 


DK2l> 




STA 


CUKDNS 


SAVE IT 


DF2A A6 


84 




LDA 


o.x 


CET NEW DRIVE'S OLO TRACK 


DP2C B7 


E019 




STA 


TRJCREC 


PITT IN CONTROLLER 


DF2F BD 


DE99 




JSR 


DELAY 




am 5P 






CLRB 




NO ERROR 


DF33 35 


90 


DRIVE9 


PUUS 


X.PC 




DP33 33 




0VER3 


COMB 




SET CARRY 


Or 36 C6 


OF 




1.0b 


#$0P 


LOAD ERROR BODE 


DF3B 20 


F9 




BRA 


DRIVE9 


EXIT 


OF 3 A BE 


DE22 


FNDTRJC 


LDX 


ITRKTBL 




DF3D F6 


DEli 




LDB 


CURDRV 


CET 0R1VE W 


0F40 1A 






ABX 




POINT AT TABLE ENTRY 


DP41 39 






RTS 







* CHECK DRtVE READY 



DP42 60 


OB 




CHECK I 


BSR 


QCHEKI 


CHECK DRIVE NO. 


DF44 25 


OB 






BCS 


ISRDY9 


NOT READY, EXIT 


DF4fr BE 


FFFf 






LDX 


#$PFPP 


DELAY *>QQ KS ( IMM2) 


DF49 30 


IF 




CBKCR2 


LEAX 


-i.x 




DP4B 26 


FC 






»*E 


CKECK2 


00NK7 


DP4D 5F 






ISBJJT 


CLRB 




CLEAR CARRY 


DP4K 39 






ISRDY9 


RTS 












• QUICK 


CHECK 


DRIVE READY 


DP4F B6 


EOie 




QCHEKI 


LDA 


COMREC 


TURN OM DRIVES 


DF52 A6 


D3 






LDA 


3.X 


CET DRIVE NUMBER 


DP54 Bt 


01 






CXPA 


fMAXDRV 


LESS OR eqtJAU 


DP56 23 


F5 






BLS 


ISRDY 


YES 


DP5B 53 






NOTED* 


COMB 




SET CARRY 


DP 59 C6 


60 






LDB 


#$60 


SET ERROR CODE 


DP5B 39 








RTS 












* VERSION CODE 






DP5C 20 


46 44 


32 




PCC 


f PDRVPT69 5-4-B5/ 


DP6D 56 


50 34 


36 










DP64 39 


20 35 


2D 










DP6B 34 


20 36 


35 














DP6C DRVEND IQU 


* 





FDC 




i>ri«Scfett 



)iHiCS**^lict) 



see GLaASUOTD AUfXZnSIK *** 

1 Will Accept Any Reasonable Offer II 

1-S* System with 256R 1AK, 1-MPS4, 1-P«tmll«l Port, MPU froceuoc 
Bo-r4 92700. 1-QMJ 10 Mag 5" Hard Dtik ft 8" DUk Driv« with DMA/3 
Controller B«ard 93B0O. A-X12 T«mlo«l 12" 41260. l-Cabln»t tot 
S+ Sy«t«« WFillar PUt* 9500. 2-B212 TerelaeU S49S. S/09 
v/Motorol* 128K RAM, I-HPB2, i-P*rall«l Port, MP-09 CPU Card 
91990. 1-0MAP2 Dual 6 H Drives w/Coatrollir 92190, 1-CDBI 20 K*R 
Hard Dlik v/Coatrolltr $2400. 
CHI T« (615) 642-4600 N-P 9 A.M. to 5 P.M. I.S.T. 

ftft* 

Saveral SVTP S* Sy«t«a» Avillebli: B«lov dealer cost, new 
•quijment earriaty, lot* of iOftw»r# •v*ll*bU. 
Fiad.r. F««. 512-B2B-2679 

«»* 

WANTED: U»»d screen editor for 6800.CT-82, eg. PIE, BLITZ or 

SCREENED ITOR Uej trereloe). 

Crelf ttenrlkeoo t 37 Merrick Ave. Delaar, NT 12054 <5U> 439-6770. 

NEW PRODUCT ANNOUNCEMENT 



Introl Corporation 
647 W. Virginia St. 
Milwaukee, Hi 53204 
(414) 276-2937 



Artisan Systems Corp. 
PO Box 2S3 
Revere, MA 02151 
<617) 846-8323 



Subject: 



INT OL INTRODUCES INOS OPERATING SYSTEM FOR 
THE 6609-BASED ARTISAN DP-09 COMPUTER 



ERKOB(S) DETECTED 



StHBOL TABLE: 



CHECK 

CURDNS 

DEUY 

DIN1T2 

DRIVE I 

FNDTRJC 

OVER3 

RIAD2 

RESTR1 

SEEK! 

SETDC1 

SSOBIT 

VRiFYl 

WRITE1 

WIITE6 



DEOF 
0E20 
B£99 
0*15 
DP04 
DP3A 
DF33 
DE34 
OiPB 
0R5C 
DEB 3 
0002 
DREC 
D*BB 
OEE7 



CHRCK \ 

CURDRV 

DELAY 2 

OMSBIT 

DRIVE9 

1SRDT 

QCHECK 

READ3 

SCHID 

SEUC2 

SETDC2 

STFTBL 

VRIPT2 

WRITE2 



DP42 
DEIE 
089 B 
0060 
DP33 
DF4D 
DEI 2 
DE41 
OEAO 
OC69 
DEBA 
0E26 
DEPD 
DEC4 



CHECK2 
CURS ID 
DELAY 3 
ON STB L 
DRVEND 
ISRDT9 
QCHEKI 



SOt£09 

SE1K3 

SBTSO 

TRKREC 

WAIT 

WRITE3 



DP49 
DE21 
0E9D 
DE2A 
DP6C 
DF4E 
DP4P 
D846 
OSAB 
086 P 
DE7A 
£019 
OSBF 
DEDl 



COLDS 

CURSTP 

DELAY4 

DOCOM 

OBVACC 

MAXDRV 

READ 

READ5 

SECREC 

S8EK6 

SETS1 

TRXTBL 

WARM 

*RITI4 



CDOO 
DE1P 
DE9F 
DEBA 
E014 
0001 
OE00 
DE57 
E01A 
DC7D 
DE73 
0C22 
DE1B 
0E04 



COKRSC 

DATRZC 

DINIT 

DRIVE 

PBPLAC 

KOTRDY 

READl 

RESTOR 

SEEK 

SETDC 

S1DBIT 

VERIFY 

WRITE 

WRITE5 



E01B 
80IB 
OE9B 
DEOC 
CC34 
DP 58 
0E2E 
D809 
DRIB 
DEA9 
0040 
OC06 
DE03 
D8P6 



Introl Corporation ia pleaeed to announce the release 
of the Introl INOS Operating System for the Artiaan 
Systems Corporation 6809-baaed DP-09 Single Board 
Co* outer. 

INOS la a high-performanca, multiuser, multitasking 
operating ayatea for 6809-based computers that la very 
aimilar to the UNIX operating system. In combination 
with the DP-09, which is ideally euited to running 
INOS, the INOS/DP-09 System proves to be a 
particularly powerful and effective computer system 
for 1 to 4 users. During the past one and one-half 
yeare, in fact, introl has been uaing INOS/DP-09 
systems exclusively for all of its own in-house 
software development work and INOS/DP-09 has 
consistently demonstated itaelf to be an exceptionally 
useful, efficient, end reliable development system 
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throughout that period of time. 

In conjunction with the Introl-C compiler, the Introl 
Standalone Development System, and the various Macro 
Cross Assemblers available from Introl for IN05, 
INQS/DP~09 is very well suited for a variety of 
software development eetivities, including program 
development for UNIX/ZNOS environments as well sa for 
stand-alone ROM-based environments. INOS/DP-09 is elso 
a capable multi-user busineis/generel purpose syatea 
for high performance word end date processing. 

INOS/DP-09 facilitates the development of future 
epplicetions in a UNIX-like environment while 
mainteining compatibility with the past, incorporating 
a UnlFJex compatability mode that allows most UniFlex 
applications programs - such as Stylograph. Dynecalc, 
Sculpture. etc - to execute under INOS without 
modification. 

INOS is a high performance software system that has 
been designed with the future in mind, being written 
in C in a highly portable manner to allow its future 
migration to processors such as the 68000 end 32000. 
INOS is also optionally available in several 
configurable versions to enable the addition of 
hardware device drivers and even to allow INOS to be 
ported to other 6809-besed hardware configurations. 
INOS FEATURES: 

* Comprehensive utility command set (over 60) 

* Nulti-user, multi-tasking environment 

* Tree structured directories 

* Input/Output redirection and 'pipes* 

* Up to 6 simultaneous users on the DP-09 

* Compatability mode to run UniFLEX programs 

* UNIX Source code competablllty 

* Full support for the DP-09 hardware 

* Makes the 6B09 into s *supermicro* 



A partial listing of utilities stsndard under INOS: 



1!! NEU PRICES II! 




in- JGiiiiiii 
CtnuiiitjilU 
iQ III jirinri 

ftffninn 

256K, 512K, 1 MEG MEMORY SYSTEM 



Horn c *mp*1b\m "IK DMA eomrolterft, RiAi vt «p to lUht without |Bn«r«UQC 
MHOY or b»Mrr*ot«. l««* on option*! on U*t4 OAT for am «ft» CPU cor4> 
vXtoot • OAT. J2SK. 2J4K. M2K or (M **» p*r cord. rWd •9*f4*M. 
OptloooJ coo Mfn rat too •lkn»» «M byte •Mt+u react (»•!<% wamatj fc»r4 DAT) 
vfttout CPU ch— j i ot cotto*. r yoor Jtoiiod vorrooty, 

TURBO viriool dltk oof i%oro ood mmmowf dUspn^tc* »«oc4tod »ldt d» »ystonL 

Prepaid: 2St*:$*§5. 128K:$S45, 5I2K:S?95. 1024*:SI1§S 

Oojfotck »***<« ood hoo4itA4 SIClOOL L«n mwmtmk IIJ.00. opplkcOMo toward 
i^ua ourcfto««. Cotktort «*■!, COD. personal cfceckt inn cJe*r before 
iMpw*m, FSo, r**kfc**» odd 5* tate* u*. Stopped ttoc* to 5P d»f** Dealer m4 
•oomity ditooon 



COMPUTER EXCELLENCE INC. 
P.O. BOX 8442 

CORAL SPRINGS, FL 33065 
(305) 752-8321 
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DP* 09 FEATURES: 









* 512K bytes memory standard (expandable to 768K) 

* Up to 192K bytes of EPROM 

* Dual 2 HZ 6809 processors (with one CPU dedicated 
to handling disk I/O) 

* Six RS-232 Serisl ports (with software selectsble 
baudratea) 

* 3.5.5, 6 8 inch floppy interface for up to four 
floppies 

* SCSI interfsce for Winchester disks 

* Centronics-competible parallel port 

As an introduction to INOS/DP-09, Introl and Artisan 
are joining forces end, for a limited time, will be 
offering a starter system - consisting of the INOS 
opersting system, the Artisan DP-09, and the 
Introl-C/6809 compiler - at the low introductory price 
of only S1495. Simply add a terminal, power supply, 
floppy disks, snd optional Winchester disk and your 
aystem is complete. Fully pre-assembled systems will 
be available soon from Artisan Systems for under 
$4000. OSH licensing is available for both INOS and 
the DP-09. 

This proven subsystem adds hsrd disk speed snd storage 
cspscity to your computer yet requires only one SS-30 slot. 
Softwsre (with source) is included for your choice of 
FLEX9 a , 0S-9 - Level t or Level II, or 0S-9 68K opersting 
systems. The softwsre honors sll opersting system 
conventions. The softwsre is designed for the Xebei SI 410 
controller lnterfscing to sny hsrd disk drive thst conforms 
to the ST506 stsndsrd. Four subsystems sre svsllsble: 

1) 27 MB (formetted) WREK* hsrd disk, Xebec S1410 
controller, 33-30 interfsce csrd, sll cables, snd 
softwsre for 12850; 
2> 5 MB (formstted) Shugsrt 604 hsrd disk, rest same as 

sbove for $750; 
3> no hsrd disk, rest smoe ss sbove for 1600; snd 

* > SS-30 Interfsce csrd snd software for 1200. 
Oklahoma residents must sdd ssles ts*. The subsystem may 
be mounted within your computer chsssls or in s seperste 
enclosure with power supply. Please cell or write (include 
your phone number) for more lnformstlon. We will return 
Horth Amerlcs cslls so that any detailed answers will be st 
our expense. 

(405) 364-6856 

825 K. Sherry 

Norman, Oklahoma 73069 

FLEX is s trsdeaerk of Technical Systems Consul tents, inc. 
0S-9 is a trademark of Mioroware end Motorola 
WREN la a trademark of Control Data Corporation 
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INDUSTRIAL PASCAL 
FOR THE 68OOO 



If you're looking for a language to 
write real-time process control software, 
look no further. With the rising cost of 
labor, it is becoming critical that a high 
level language be used whenever possi- 
ble. Find out why over 1400 companies 
have switched to OmegaSoft Pascal for 
their demanding applications. 

OmegaSoft Pascal takes the Pascal 
framework and expands the basic data 
types, operators, functions, and memory 
allocation to fit the needs of real-time 
systems. These additions fit in the same 
structure as Pascal and enhance its use- 
fulness without impairing the excellent 
readability, ease of maintenance, and 
structured design. 

The compiler generates assembly lan- 
guage for assembly and link to run on 
the target system. Since a true relocat- 
ing assembler and linking loader is 
used, only those runtime modules re- 
quired are automatically linked in, pro- 
viding a smaller object module than 
other compilers. 

Large Pascal programs can be split up 
into conveniently sized modules to 
speed the development process. Proce- 
dures, functions, and variables can be 
referenced between Pascal modules and 
assembly language modules by using 
Pascal directives. 

The compiler package includes an in- 
teractive, symbolic debugger. The de- 



T.M. OmegaSoft is a trademark of Certified Software Corpor- 
ation 05*0/68000 to a trademark of Microware. VERSAdos is 
a trademark of Motorola. CP'M«68K la a trademark of DRI 
UNIX is a trademark of 8eJI labs. 



bugger allows setting of breakpoints, 
displaying and changing variables, and 
tracing statements. Debugging can also 
be done at the assembly language level 
when needed. The debugger allows very 
fast turnaround for programs to be run 
on the host system (target system de- 
bugger coming soon). 

The compiler package also includes a 
full relocatable macro assembler and 
linking loader. These are designed to 
support the compiler but may also be us- 
ed for general assembly language devel- 
opment, in addition, a full screen editor 
is included which can be used with a va- 
riety of intelligent terminals. 

Full source code is included for the 
runtime library, the debugger, the screen 
editor, and other support utilities. 

Versions to run under the OS-9/68000 
and VERSAdos operating systems are 
currently available to end-users and 
OEM's. End user price is $900 (domestic) 
or $925 (international). A version for 
CP/M-68K is available for OEM use, with 
OEM versions for UNIX type operating 
systems to follow. 

Similar products to run on a 6809 sys- 
tem and generate 6809 code are also 
available for most major 6809 operating 
systems. 



CERTIFIED SOFTWARE 
CORPORATION 

616 Camino Caballo, Nipomo, CA 93444 
Telephone: (805) 349-0202; Telex: 467013 



'68' Micro Journal 



September 85 



53 



GOOD NEWS! 
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CORPORATION 

6-/7 H'. VirMiniu St. 
Milwaukee, H7 5.J20 / 
Ml* 27H-29:*7 



C 
for the 

6S09 

MAS NEVER 

BETTER! 

INTR0L-C/6809,Version1.5 

Introl's highly acclaimed 6809 C 
compilers and cross-compilers are now 
more powerful than ever! 

We've incorporated a totally new 6809 
Relocating Assembler, Linker and Loader- 
Initializer support has been added, leaving 
only bitfield-type structure members and 
doubles lacking from a 100% full K&R 
implementation. The Runtime Library has 
been expanded and the Library Manager is 
even more versatile and convenient to use. 
Best of ail, compiled code is just as 
compact and fast-executing as ever - and 
even a bit more so! A compatible macro 
assembler, as well as source for the full 
Runtime Library, are available as extra-cost 
options. 

Resident compilers are available under 
Uniflex, Flex and OS9, 

Cross-compilers are available for PDP- 
11/UNIX and IBM PC/PC DOS hosts 

Trademarks: 

Introl-C Introl Corporation 

Flex and Uniflex. Technical Systems Consultants 

OS9, Microware Systems 

PDP-11, Digital Equipment Corp. 

UNIX, Bell Laboratories 

IBM PC. International Business Machines 

For further information, please call or write. 
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COKPELKR EVALUATION SERVICES 
By: Son Anderson 

The S.E. MEDIA Division of Coapoter 

Poblishibg Inc., 

is offering the following SUBSCRIBER 

SERVICE: 



Due to the constant end rapid updating end 
enhancement of nuaeroua coaptlera, and the 
different utility, appeal, speed, level of 
coaaunlcatlon, aeaory usage, etc., of different 
coapilera, the following aervlcea are now being 
offered with periodic updates. 

This service, with updates, will allow you who are 
wary or confuaed by the varioua clstas of compiler 
vendors, in opportunity to review comparisons, 
coaaenta, beochaarka, etc, concerning the many 
different coapllers on the aarket, for the 6809 
microcomputer. Thus the ssvlogs could fsr offset 
the snail cost of thli service. 

Many hove purchased coapllers and than discovered 
thst the psrticulsr compiler purchssed either Is 
not the aost efficient for their purposes or does 
not contsln festures necesssry for their 
application. Thus the sdded expense of 
purchasing sddltionsl coapiler(s) or oot being 
able to Cully utilize the advaotagea of high level 
language coapllers becoaei too expensive. 

The following COMPILERS are reviewed initially, 
aore will be reviewed* coapared and beochaarked 
aa they bacoae available to the author: 



PASCAL 



CSPL WHIMSICAL PL/ 9 



Initial Subscription - $ 39.95 

(includes 1 year updates) 
Updates for 1 year - $ 14*50 

S.R. MEDIA - C.P.I. 

5900 Cassandra Saiith Bd. 

HixBOn, Tn. 37343 

(615) 842-4601 



OS-9™ SOFTWARE 

SDISK— Standard disk driver module allows the 
use of 35, 40, or 80 track double sided drives with 
COCO OS-9 plus you can read /write/form at the 
OS-9 formats used by otherOS-9 systems. $29.95 

SDISK+ BOOTFIX— As above plus boot directly 
from a double sided diskette $35.95 

FILTER KIT #1~Eleven OS-9 utilities for "wild 
card" directory lists, copies, moves, deletes, 
sorts, etc. Now includes disk sector edit utility 
also. $29.95 ($31.95) 

FILTER KIT &2— Macgen command macro 
generator builds new commands by combining 
old ones with parameter substitution, 10 other 
utilities, $29.95 ($31.95) 

HACKER'S KIT #1— Disassembler and related 
utilities allow disassembly from memory, file. 
$24.95 ($26.95) 

PC-XFER UTILITIES —Utilities to read/write and 
format MS-DOS™ diskettes on CoCo under 
OS-9. Also transfer files between RS disk basic 
and OS-9 (requires sdisk). $45.00 

BOLD prices are CoCo OS9 format disk, other for- 
mats (in parenthesis) specify format and OS-9 level. 
All orders prepaid or COD, VISA and MasterCard 
accepted. Add $1.50 So\H on prepaid, COD actual 
charges added. 

SS-5QC 
1 MEGABYTE RAM BOARD 

Full megabyte of ram with disable options to suit any 
S&50 6809 system. High reliability, can replace static 
ram for a fraction of the cost, $895 for 2 Mhz or $995 
for 2.25 Mhz board assembled, tested and fully popu- 
lated. (Add $6 shipping and insurance, quantity dis- 
counts available.) 

D.P. Johnson, 7655 S.W. Cedarcrest St. 
Portland, OR 97223 (503) 244*8152 

(For best service caH between 9-11 AM Pacific Time) 

OS-9 la a t'«tofn«/V ol Micro*** and MolcwoU loc 
MSOOS la a iradamaA ol Mlcrosoll. fee 
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THE 6809 "UNIBOARD"" 

SINGLE BOARD COMPUTER KIT 

PERFECT FOR COLLEGES. OEMS. INDUSTRIAL 
AND SCIENTIFIC USES! 

64K RAM! DOUBLE DENSITY 
FLOPPY DISK CONTROLLER! 



"&«** 



ftetu> 



BLANK PC BOARD 



$ 99 



95 



WITH PAL'S, AND 
TWO EPROMS. 



FOR 5-1/4 OR 8 INCH 

SOURCE DISKETTE 

ADD $10. 




00 



$219 



COMPLETE KIT1 
FULLY SOCKETED. 



PRICE 
CUT!! 
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THE COMPACTA UNIBOARD™: Through special arrangement with COMPACTA INC., we are 
proud to have been selected the exclusive U.S. Mfg. of their new 6809 UNIBOARD™ COMPUTER 
KIT. Many software professionals feel that the 6809 features probably the most powerful 
Instruction set available today on ANY 8 bit micro. Now, at last, all of that Immense computing 
power Is available at a truly unbelievably low price. 



YOUR CHOICE OF POPULAR 
DISK OPERATING SYSTEMS: 

FLEX™ from TSC **g 

OS9™from Microware $199 

Specify 5-1/4 or 8 Inch 



to 



<! 



FEATURES: 

• 64K RAM using 4116 RAMS. 

• 6809E Motorola CPU. 

• Double Density Floppy Disk Controller 
for either 5-1/4 or 8 Inch drives. Uses WD1793. 

• On board 80 x 24 video for a low cost console. 
Uses 2716 Char. Gen. Programmable Formats. 
Uses 6845 CRT Controller 

• ASCII keyboard parallel Input interface. (6522) 

• Serial I/O (6551) for RS232C or 20 MA loop. 

• Centronics compatible parallel printer interface. 
(6522) 

• Buss expansion Interface with DMA channel. 
(6844) 

• Dual timer for real time clock application. 

• Powerful on board system monitor (2732). 

Features commands such as Go To, Alter, Fill, Move, Display, or Test Memory. Also Read 
and Write Sectors. Boot Normal, Unknown, and General Flex™. 



PC BOARD IS 

DOUBLE SIDED, PLATED THRU 

SOLDER MASKED. 11 x 11*1/2 IN. 



Digital Research Computers 

{OF TEXAS* 
RO BOX 461565 - GARLAND, TEXAS 7S046 - (214)225*2309 



TERMS: Shipments will be made approximately 3 to 6 weeks after \ 
receive your order. VISA, MQ cash accepted Add $4,00 shipping 
USA AMD CANADA ONLY 
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SOFTWARE FOR 680x SYSTEMS 



SUPER SLEUTH OtSASSEMBLERS 
CACH SB9-FLEX $101-05/9 S10G-UNIFLEX 
OOJECTONLY vtnloni: EACH tM-FLEK.OSDCOCO 
nteracovery generate touroe on rjsh wtih labels, mcluda Met. binary «M»og 
ipecrfy MW.l,£3.5.e.t*5Q2 WW or 280/80*0.5 vetiron 
OSS wr*xi eJao pro o a aa a* FLEX format oto^tf IVa infer 0S.9 
COCO DOSev*aabJe in 6800.1.2.3.5. .ft*SQ2 vfrsicrt too 12848000.5) on>y 

CROSS-ASSEMBLERS fTRUE ASSEMBLERS. NOT MACRO SETS) 
EACH $50 FLEX.OS/ .UNIFLEX ANY 3 $100 ALL $200 
toady for I B0x.650? J 680\.ri8O4.6«0a.6a09,2 », 260.8048.6051. 6085. 68000 
trua. rrv&M*. tw+#MX»nQ 90U-«M<rfVl<iC. vMtf) toadrunmad utfttea 
8-W (noi 68000} aourees included **lh ej cr»iai»mU*n ff or $200) 

0€BUGG#*G SWULATORS FOR POPULAR MICROPROCESSORS 
EACH S75-FLEX $100-03/9 $80 UNIFLEX 
OBJE T-ONLY¥»f»IOnf EACH$S0.COCOFLEX.COCOOS9 
trtiaraciWy tiawMdB pocenro, ndudfl dfeasaamOfy forma* r\gbtr\aryodio>xj 
•pacify for eaooa, 1^4)6605. 6502, 6809 OS^l 260 FLEX 

ASSEMBLER CODE TRANSLATORS FOR 6502, 6800/1, 680 

6502*0 6803 S7S-FLEX SB5-OS/9 J80-UNIFLEX 

6600/1 to 6809 8 6809 1o po»J|»oo-knd. X50 FLEX J7SOS/9 *60-UNlFlEX 

FULLSCREEN XBASfC PROGRAMS wrth c«reor control 
AVAILABLE FOR F EX, UNIFLEX, AND MSDOS 

DISPLAY QB^RATOWDOCUMENTOH S5Q W Hurt*. 125 wtthoul 

MAJLMG LEST SYSTEM *tM weotirce< $50 without 

INVENTORY WITH MRP >100 w'SOurC** *» wlthoul 

TABUA RASA SPREADSHEET SI 00 Wtaum. 550 wrthoal 

DISK AND XBASfC UTILITY PROGRAM LIBRARY 
S50FLEX S30-UN1FLEX/MSDOS 
•rJl OWc moot*. «ort rJreoary, mortar masfep catalog do disk sorts. 
raaqLawaeomeorafl otfUSCpror/am. j*et 9ASJC pror/am. ©la 
ayvA£X mkn indudeaort and resaquorrnr orfy 

CMOOEM TELECOMMUNICATIONS PROGRAM 
$1 00-FLEX.OS/9.UNIFLEX 
OBJE T-ONLY verelona EACH J50-FLEX.OS/9 
twth&H™ vw»\T TT»tna lmoOo. «e ffanstw, MODE W7. XON-XOfF. «& 
tar COCO and fovCTXX): drives r^r^ COCO rr***m pon \*> to 2400 Baud 



HARDWARE & SERVICES 

525" DISKETTES 
EACH 10.PACK S1250-SSSD/SSDD/DSDD $20DSOD 

AiwWMiv*Hguir»<N^ I00%oa^ry, *f0iTyviik *****. hub dnp».ar*llai 

SS-50C256K 1.5MHz MEMORY BOARDS 
EACH BLANK $80 ASSEMBLED AND TESTED $350 

win t/«fcvBtgn nv«M tchem***. and deioy lino; ai P»lf roadiry evafable 

AOOfnONAL SERVICES FOR THE COMPUTING COMMUNITY 
CUSTOMIZE D PROGRAMING 

♦or suen QtfSFrizaky> ileiBJtaiuponfwNViito^OJMByolfwrtoSJkJsfc*^. 
CONTRACT PROGRAMING 

wo wii ornate now program* or modify ajuaeng program* on a cortrad bass. 
awvaw have provided tar over twenty yoart. V* computer* on whrfi w*> 
have performed cor#act proy a rrirnng indude mosa popular moddi o* 
mainframes, including IBM, Burroughs. Urwac, Honeywell, most popular 
modoti d i wMan^ /WJii, *ndbdrv OEC, BM, 00. HP, AT&T, and mos? 
popular brands of microcomputers. i»duding 6600/1 . F>ecr9, Z50, 6502. 
68000. u$rtg most appropriate languages and operating systems, on systems 
rangng in gj;e from large WOOOrnnHriiOHiiOna to $*igto bo*d corvodert. 
in* charge "Of contract programming is usually by tfw hour or by m* tash 
CONSULTING 
wo oflv a wde range oi buvesi and tethrecal Doneureng aen/toaa. mdudng 
somnars, adwoo trapping, and de sign, on any topic rotated to co mp u ter s 
e>o f*arg* ay arautag b rvnofly haaod upon «mo. vavol. arai ospa«o& 



Computer Systems Consultaries, Inc. 

1454 Lalta Lane, Conyera, GA 30207 

Telephone 404-483-1717 or 4570 

We take orders at any lime, but please 
plan discussions alter 6, l( possible. 

Contact us about catalog, dealer, discounts, and sen/Ices. 
Most programs in source: give computer, OS, disk site. 
25% off multiple purchases of same program on one order. 
VISA and MASTER CARD accepted; US funds only, please. 
Add GA sales lax (If In GA) ind 5% shipping. 

|UNDFl£X an TedasaJ Sv*ktrr« Coram**. OS/9 an MJoo*ot: COCO |m Tandy 



SOFTWARE.. 
HARDCORE 



tFORTH® 

from TALBOT MICROSYSTEMS 
NEW SYSTEMS FOR 
6301/6801, 6809, and 68000 



•• FORTH PROGRAMMING TOOLS from the 68XX&X " 
'• FORTH specialists — get Ihe beslt! *' 

NOW AVAILABLE — A variety of rom and disk FORTH systems to 
run on and/or do TARGET COMPILATION for 

6600, 6301/6801, 6809. 68000. 6080. Z80 

Write or call for information on a special system to fit your require* 
menl. 

Standard systems available lor these hardware — 

EPSON HX-20 rom system and target compiler 

6809 rom systems for SS-50. EXORCISER, STD, ETC 

COLOR COMPUTER 

680076809 FLEX or EXORCISER disk systems, 

68000 rom based systems 

68000 CPM-68K disk systems, MODEL 11/1 &1 6 

(FORTH is a refined version of FORTH Interest Group standard 
FORTH, fasler than FIG-FORTH FORTH is both a compiler and 
an interpreter. It executes orders of magnitudes fasler lhan inter- 
pretive BASIC MORE IMPORTANT, CODE DEVELOPMENT 
AND TESTING is much, much faster than complied languages 
such as PASCAL and C. If Software DEVELOPMENT COSTS are 
an important concern for you. you need FORTH! 

firmFORTH* 5 * is for the programmer who needs to squeeze the 
most into roms. It is a professional programmer s tool for compact 
rommable code (or conlrofler applications, 

» 1FORTH and JUmFORTH era Kidem*** 0i Taftrot Moosyelerivs 
* FLEX is a iredrma* of Te**r»<A) System* GonauHant* Inc 
e» CPM-eaK t* trademark or D<9fl*l Reseercn inc 



-« > tFORTH SYSTEMS <— 

For all FLEX systems; GIMIX, SWTP, SSB, or EXORdsor Specify 
5 or 8 inch diskette, hardware type, and 6800 or 6809. 

•■ tFORTH — extended fig FORTH (1 disk) $100 ($15) 

with fig line editor. 
'• tFORTH + — more! (3 5" or 2 8" disks) $250 ($25) 

adds screen editor, assembler, extended data types, utilities. 

games, and debugging aids 
" TRS 80 COLORFORTH — available from The Micro Works 
- firm FORTH — 6809 only. $350 ($10) 

For larget compilations to rommable code. 

Automatically deletes unused code. Includes HOST system 

source and target nucleus source. No royalty on targets. Re* 

quires but does not include tFORTH + , 
M FORTH PROGRAMMING AIDS— elaborate decompiler$1 50 

•• tFORTH for HX-20, tn 16K roms lor expansion unit or replace 
BASIC $170 

*' IFORTH/68K for CP/M-68K 8" disk system $290 

Makes Model 16 a super software development system, 

** Nautilus Systems Cross Compiler 

— Requires: tFORTH + HOST + at least one TARGET; 

— HOST system code (6809 or 68000) $200 

— TARGET source code 6800.$200. 6301/6801— $200 
same plus HX-20 extensions— $300 

680*-- $300, 8080/Z80 -$200. 68000- $350 

Manuals available separately — pnee in ( ) 
Add $& system tor shipping. $t5 for foreign air 



TALBOT MICROSYSTEMS 1927 Curtis Ave., Redondo Beach. CA 90278 (213) 376 9941 
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WINDRUSH MICRO SYSTEMS 



UPROM II 



ptotftAm and vestries: utso, 
T25oa, i*?u. t«i6, l^7S^/^7$^* J , 

tWjrOS 764/6, I *r6*/2 76* A, f?$6*, 
12712I/271?**, ami !?7?$6. 

l'lncel, T*Te»«i, ftxtotorola. 

MO reason ah tt NQOUUS trtainw^o; 

TCI -VOLT EPtQrtS AM HOT SUPPQdltP 

lajttL'e inteligent programing 
(Ip) iVlrwPird for Intel 

?764, 27126 end 27ZS6 device*. 
Intelligent programing reduce* 
the avarage prOgraao1r>g |i*f of I 
276* froo 7 ainutei to 1 ainute 
15 tetond* (under MX) uUI 
greatly improved reliability. 

Fully tfictottd pod with 5' al 
flat ribbon cebte lor connection 
to the Njit computer HC.6921 PI* 
interface board, 

HC64M lolUtrt far r-if,* and OSV 
(Level 1 or ?, Vertion 1.2). 

OlHAtr 61SK riU attieC loadar 
aupplied with FLlJl, NOOS sod OSv. 

■emu dr i <tta to f t Hi r t pr a* I de i tit f e I low l *i g f «c 1 1 Ititt; 

a. FILL ........... a teUcted ir*t or t*e bwf'«r with a H€X Cher . 

b. NOW blocks or data. 

c. vu*P .* the buffer in HCa and ASCII. 

d. HW a fttrtng of brtft In tht bufrtr. 

a. EAAN1N6/CHAN4E . tut content* of the Puller, 

t. C*t checitoe « selected tree of the butfar. 

9. iOft a selected eree or an EP«Or» into tar buffer. 

a. «(ft(fr a telacted area or an EPto* against tar burrer. 

I* ftAmui ........ « selected arte of an EP«Orl *Uh data In the bulltr. 

t. SELCC1 ......... « rwy IPNON type (rat err. to type* ownu*. 

k. Eajfll tftt UttH Monitor. 

I ilfuaaj to tnt opt rating syite*. 

I. EXECUTE ........ any ftps utility (only In FLU and 0*9 veralona). 




fUi juaa pig versions available yon 6 mix. 



&»rWOQS COHTACT tfS pltECt. 



PL/9 



■ frltndly lnter-act»ve environ— r>t »hore row «•** (nsrAnf eccets to tht 
Cdltor, iht Compiler, and the frace-6* bugger, ymth ( aasngtt othee 
tMnge, fh aingla ateo the progre* t SOoiCt i l«e *l * liaej. iou alto 
haye dlrtct ecceat to any fLCK utility a»d fw tuteai oonltor. 

« JrV peg* aanutl organised at a tutorial t»itn plenty o1 e«eopi»t. 

• feat SJNGLl PAIS ioeputr orodwtta 6* o1 CONPK1 ana FAST 6809 eechlne 
code output per *irmte with no rujyt iee overhead* grlTc ante lee*. 

• Full/ compatible «1 « N *SC lect apltar 10/ eat disk flUf. 

• Signed and umignaU irltl ind I ■ T t &t» J, 12-bU flMilnaj point tEHl. 

• ye C tori UlngLa fl(«tni1«v err«>a) and polntt^t ere iLfppnrtetf. 

• Netaraatltal uprtittonn (♦), {-), d), {ft, a^dulut t\>» negation <-) 
« EaPr««a1e*t t vat vat or*; ta), <o), <<1, (>), <>■), (<■) 

• tit Op.r.ion; ((kN6). <0P>, (EO«VxM), (NOT), fSNIFT), (SHAP) 
« logical operetora; (.AiaO), (.01), {.EOP/aOUl 

« Control atateeanta: ]|..THCaj..<lSE» IK.CASE1. .(4SE2..E1SE, aE6JN..f<P, 
UNlLl.., t€PEAf..UPItlL # HE^EAT . . rOt-IVM, CAU, ^V»1P< «*TUW«/ 8NCAJC, SOTO. 

• direct aetata to (ACCA), (ACCB), (ACC6)* Ci«t?. (cttl and (STACO. 

• Fvttlr aupporti the nCABOV IE$«T„ (#11, fj*g, itg, Sut, S^I2, and Swlj 
vector*. Krtclng ■ «tl KtTart 1r»g <troa 90V«r-wp> prograe Mat usei **», 
or ALL, or the IK 6*09 Interrupia «t w> abwlwte map! 

« ttacblne code —v be eobeddad in :»■ progre* via tfea '60t ( i»e(te***t» Thi« 
eneblrt tow to coda critical rowtlnea In aaarably language end edoed thee 
in the PL/9 oregra* <aee 'MACE* for detalla). 

• Procedural eay be Petard end *i« return varlafeiet. Thli «a*ai ihe* 
Iwnctlone wbUb bthava e* tnouga they were en Integral pert of PL/9. 

> Several rutty documented library procedure ■Ddulea ere lvoptted: lOSUCtt, 
11110, MAJOIO, Nf 110, FLUID, SC1PACZ, SUSUBS, BAS1RIW, «»d P.EAIC0*. 

'... THIS IS TKf HOST EFrltlEWT CQWP>lLEt I Ha\fE FOUW TO PAT|.' 

tvoTed frpai a«n Anderaom phi tnt' Hotea toluwn in 'of. need «e t*y acre- 



MACE/XMACE/ASM05 

All of tteia produtl* leature a highly productive e*virom»ent where tat 
editor and the aaiaeblar rwaide In mmtn tegeli.er. Cone ait the der> of 
itdlvt d»»a. load and aeve opera* loni «*1l» you are <*»bvgBlng your code. 

• Fritngty lntar»a< t Ui envlronawfit where row «ave Inatant acceat to the 
Ed«tor end t^e Aiaewfcler, FICK utHlt1e» and your »ystee> adnlior. 

• MACE ten aleo oreduie aSr9>td<» lCt« Mate nta) for PL/g with tee 
atteebly language tourte oatiad to trie output at t a wi tv. 

• XMACE it a crott atttobler for tee 6ttX>/»y?/J/a and tuppvrti t^r eitmded 
■efwonut of the 6M3. 

• *S^)i la a croat ettrabler (or the 6005. 



D-BUG 



LOOKING for a tingle «t«p tracer and ejni In-line dltsitrafcier t r»«i it »et> 
to ute?? tools no fuNher, you heve found il. thii package it ideal lor 
triott taielt atteably larvguage Prograo debugging imlorn. tr-9ti6 occuolw* 
leet then pk (Including lit tlacL and verlablat) and aay be Loaded anywhere 
In eeeory. All yau do It LOAft U, AIN IT end CO! (60 cal VbVl only). 



McCOSH C 



fhlt It a* toopiete a >pl coiapHer ae you will Hod on any operating ayatee 
lor the 6609. It It coaplwtvly c<M(M*1ble v«t*i UNIX VI 1 and only leek* 
*b1t-flrldt* (which arr of Httle practical w«e In #n 8-bit yarldl). 

• Produce* v»rr eHictnt atteobly language source output with the 'C 
towrc* optionally Intarteeved at coavent.*. 

• lulLfln QptimiMir U« I L |l>art«n ofcjecl COd* by alKrut tit. 

• SupfArt* Interleaved iu*«It language pruqra**. 

" iNtttPMS lit own etteabter. me TSC relocating Mieidairr i« only regu«r«o 
if you want lo generate ye*r «wi llbrariat. 

a Fh* ore-orotettor, cowjpller, ootinl/ar, ettenbter and loader all rw 
1<wav9CT«»intly or under the *CC' e«e«ut»ve. a CC* *eket coaoUlng « progtan 
to e<e«u1eble object at almple »i typing tn »CC,k£u.O.C <tETU**t>-. 



IEEE -488 



. SuPrcajll A4.L «J*lCIP>*t HWEi Of TKt lfU**U I1975/#t |U$ SPtClFKAt [QNi 
• TaUer • iertat Poll 

- Littmer - Parallel Poll 

- St'lte* Controller • Croup Trigger 



• Singlw or Ouel friaary Addreat 

- Secondary Adev-wn 

- Talk only ... Listen only 



1 lull? documented with a cooplete reprint of the kilobaud article on tne 
IEEE but and the Motorola Publication 'Getting aboard IKe IEEE bui*. 

toy level aaaeobly lantuaga driven tultable for 6G0O, 6S91r 6WW, 660}, 
6008 and 6639 ere tuPPlieo in tha Fore or liif ingt. A complete back to 
bach tetl progra* la alto auppl leo In the totm al a lUtlng. fheat 
drlvari have been r«<tn*1vajly twtled and are CIMPAN7EC0 to wor*. 

| Single S-BO board U, 9 or 16 addrwuwt oer port>, lull/ tocketcd, gold 
plated bua connector* and IEEE Interface cebla aetaobly. 



PRICES 

ft-eut (6809 FLEl only! ., % 75.00 

MCE (b|Q9 FLE* only) 1 75,00 

IHACE (6609 FLEl only) * 98.00 

ASN05 (6009 FLEt only) 1 96.00 

PL79 (6809 FHA only! 1196.00 

»C» (6609 FLEX only) ►, 1295.00 

IEEE-id* with IEEE.4A6 cable a**a«bly .......................... S299.00 

UPftOPJ 1 1 /if vita one vtrtlon ol eoftwart (no cable or interfaca) .. 1995.00 

(iPPOPr-ll/C at abova but coapiete »ith cable end $-30 interface ....1S45.0O 

CAaXE 5' twiat-n-ilal 50 way cable with loc ecevtweiara • 35.00 

S-30 INF SS-30 Interlace tor vr*»e-il ... 1150.00 

EIQK |NT Motorola EIOGbu* <EI06ci*tr) Inttrfica for VP*«Xhe-lI ... 1195.00 

UTN0PJ SFT loltwerr driver* for 2nd Operating trite*. 

spetify FLEX or 03» MP d<tk aiir! % 35.00 

UPAQH SK Aateobty longuega aourca (contact u» direct) 

'U MHtl IKLUM 111 HAIL POSTAGE 

lerwi; CIA. Pay^enT by Infl Honty Order. VISA or HASTEIWAtb aLto ecctoted. 

Wt STOCK THE FOLLOWING COMP*N*£S PflOOUCTS 
QMU. S», FML. MfCJlOWME. TSC. LUCOATA, LLOYD I/O. 
A ALfoWQ A AJ3QC1ATE3. 

FUl (Ta? i* ■ tredtnart of Technical tyiton Contultania, 0S*9 (t») i* a 
tradoiarh ot ■jierowart lytttit Corparet ion, PBOf U*l and ElOfcUer (ta> 
arr irtdtHrki of Notorol* tntorporitod. 



WORSTEA0 tABORATORIES, NORTH WALSHAM. 
NORFOLK, ENGLAND. NR28 9SA. 

TEL : 44 (692) 404086 
TLX: 975546 W MICRO G 
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OK. PLEASE ENTER MY SUBSCRIPTION 
Bill My: Master Charge Q — VISA d 

Card # . . Exp. Date 

For □ Wear Q 2 Years □ 3 Yea s 



Enclosed: $ 



Name- 



Street 



City_ 



State. 



„Zip. 



My Computer Is: 



Subscription Rate* 
(Effective March 3, 1965) 

U.S. A,: 1 Tear $24.50, 2 Yoori $42-90. 3 Years 164.90 

* Foreign 5*r1ac»i Add 112.00 per Year to USA Price. 

* Foreign Airmail: Add $48.00 per Year to USA Price. 

* Cteede I Ha* I CO: Add S 9.90 per Year to USA Price. 

* U.S. Cerreecy Cetft or Oecfc Drawn on a USA Bank JH 
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6900 Casaendni Smith Rd. 

Hlxson, TW 37343 



(615)842-4600 

TELEX **• 414 PVT »TM 



M23M 



STAR-DOS LEVEL I 

Whenever a new DOS is inlroduced, there's 
always the problem of developing software to 
work with it, So we did it the opposite way — we 
analy2ed the requirements of software thai 
already exists and developed a DOS I hat mel 
them... and exceeded them! The result is STAR 
DOS Level I, a new DOS for 6809 systems, ideal 
(or single user industrial, control, and advanced 
hobbyist applicalions. This includes SS 50 
systems and single board computers from a 
variety of vendors. 

Level I is compatible with most currenl 6809 
hardware and software. On the hardware side, il 
allows up to ten floppy or Winchesler drives with 
appropriale controllers. On ihe software side, it 
runs existing 6809 software from all the major 
6809 software suppliers, including TSC, Star* 
Kits, Introl, and others. 

Write or call lor more information. STAR 
KITS Software Systems Corporation. P.O. Box 
209, Ml. Kisco NY. 10549 (914) 241 0287. 




TARK1TX 



AWGRSON COPnmER CONSULTANTS 

I 

Associates 



Ron Anderson, respected author and columnist 
for 68 MICRO JOURNAL announces the Anderson 
Computer Consultants & Associates, a con- 
sultlng firm dealing primarily In 68XX<X) 
software design. Our wide experience In 
designing 6809 based control systems for 
machine tools Is now available on a 
consultation basis. 

Our experience Includes programming 
machine control functions, signal analysis, 
muttl-axis servo control <CNC) and general 
software design and development* We have 
extensive experience In instrumentation and 
analysts of specialized software* We support 
all popular languages pertaining to the 6809 
and other 68XX(X) processors- 

If you are a manufacturer of a control or 
measuring package that you believe could 
benefit from efficient software, write or call 
Ron Anderson. The fact that any calculation 
you can do with pencil and paper, can be done 
much better with a microcomputer. We will be 
happy to review your problem and offer a 
modern, state-of-the-art microcomputer 
sofutfon. We can do the entire Job or work 
with your software or hardware engineers. 

Anderson Ompuit*- Consultants & Associates 

3540 StuTbcldoa Court 

Ann Arbor, Ml 46109 
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our EPROM PROGRAMMER with the field. 

JUJ dil* tAken directly trcvi "»nuf ■rturwr ' » current **v*r»Utng. Software. 



♦ TtM>le ^>lte9t «)*« 

• «fpUR) Ln kit ran* 



IcIpIeM 



INTERFACE 



INTELLIGENT 



2508 

2106' 

2756 

2516 

2716 

2716- 

2532 

2732 

2732A 

2564 

2764 

2526 

27126 

2616 

66764 

6748 

6749 



IOTAL 



PRlCf 



S30 


PAR 


PAR 


SEW 


530 


SEH 


SEA 


HO 


N 


NO 


YES 




*ES 


YES 


• 

• 

• 
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• 
• 
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• 
• 
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• 

• 
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• 
• 
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• 
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• 
• 

• 
• 
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• 
• 
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• 
• 


• 

• 
• 

• 
• 

• 
• 
• 

• 


11 


3 


12 


6 


11 


11 


11 


$125 


545* 


$149 


5 260 


5375 


5*09 


5 575 



Of** Z7HM Proqr^tmt, SITS. <%rejy»1ity t*xlui# for 2508. 2759. 2*lt, *nd 
7716 irclvnWt. Sjjecify a*0. «iwk *itm. and qp***tJ/*J tyitei fTSC'e nJX or 
SSS'i C08) «lw oriktfifip} 'Wul only. «0i r«fi*«ltbU with UWK §*«*■*•. 

UNITEK ■ P.O. Box 671 ■ Emporia, VA 23847 



TMP SOFTWARE ANNOUNCES 

A Popular FLEX Database Program, 

DATAMAN 

fa being Re-releaaed! 

$195.00 
PO WERFUL CAPABILITIES: 

• Each field can contam up to 126 characters, and each field name 
can contain up to 29 characters 

♦ Field types can be alpha, numeric or monetary. 

♦ DATAMAN lets you produce vertical or horizontal reports of 
your database, or create customized letters and forms lo pull data 
Irom a database using DATAMAN files processed by the TSC 
Text Processor 

• DATAMAN allows you lo look up records quickly, to merge 
unlike databases and to move records Irom one database tnto 
another 

* DATAMAN mcludes a Label Generator to produce mailing, 
shipping or inventory labels 

• "In sort records based on the geographic, historical, name, or 
monetary criteria you select. DATAMAN creates Sort Files which 
can then be used wffh the TSC Sort Merge package 

GIVE YOU MORE ABILITIES: 

Our Users pui DATAMAN lo work for them lo do customer 
mailings, past due notices, real estate listings, invoicing, sales 
analysis, activity scheduling, inventories, employee records and 
client prolite reports 

Also included in this package is DATARAND, the extension 
program to DATAMAN which enhances DATAMAN programs 

DATAMAN nine unrirt TSC E*tr«*J*tJ &mk Thr 1SC St«t M*»<* snd l**t 
fVxrteiw c*r^«mt a»r aho rrci*r*™""«lrd 7hr Souk* Codt Vm DATAMAN and 
DATAiUND»«*lud#dw»l»*tH*M#«**k* 



ORDERING INFORMATION; TMP SOFTWARE 

2431 E. DoisUa ♦ Wichita, KS • 67211 

OR CALL TOLL FREE: 1-800-255-1382 E*t. 47 

W« accept VISA, MC. AMEX, money order* and checks. 

NOH 7MPSi^»a^c «*o i4fM% \H* THP POWER MANAGER*,* OS V *r>H*r*, vn,( thr 

7HP tHUf OWM FILER ft* OS « «** tMrfr » *v»r*r» 

fir* oief TSC 4** ttodrrrvrk* ei tr% *pw df SrHf*n% CimtuAnvli *» 
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Dlsk-1 FUesort, Hlntcat, Hinicopy, Hlnlfas, 
**Lifetl»e, **Poetry, **Foodliat, **Dlet. 

Dlsk-2 Dlakedlt w/ Inst. 4 fixes, Prise, *Pr«od 
**Snoopy, "Football, **Ke*pa*n, "Lifetime 

Disk- 3 Cbug09, Seel, Sec 2. Find, Table 2, lntext, 
Dlsk-exp, 'Dlakaave. 

Dlak-4 Hailing Progras, *Flnddat, ^Change, 
•Testdisk. 

DCSX-5 *DISKFIX 1. *DISKKIX 2, "LETTER, "LumilW 
"BI.ACKJAK, "BOWLING, 

Dlek-6 "Porchase Order, Index (Disk file lndx) 

Dlak-7 Linking Loader, Rload , Harkness 

Dlak-8 Crteac, Lanpher (Kay 82) 

Dlsk-4 Datecopy, Dlakflx9 (Aug 82) 

Olak-10 Hooje Accounting (July 82) 

Dlsk-11 Dlascobler (June 84) 

Dlak-12 Hodeo68 (Hay 84) 

01ak-13 *InltB)f68, Teatnf68, •Cleanup, 'Dskalign, 
Help, Date.Txt 

01ak-14 *Inlt, *Teat, * Terminal, *Flnd , *Dlekedlt, 
I nit. lib 

Diak-lS Hodeot9 + Updates (Dec. 84 Cllchrlat) to 
ModeaS (April 84 Cchbbo) 

01ak-16 Copy.Txt, Copy. Doc, Cat.Txt, Cst.Doc 

0Uk-17 Natch Utility, RATBAS (A Basic Preprocessor) 

June 85 

01sk-ia Parse. Hod, Size. Cad (Sept. 85 Armstrong) , 
CKDGODE, CKD.Txt (Sept. 85 Spray) 

01sk-19 Clock, Date, Copy, Cat, PDCL.Asa & Doc., 
Errors. Sya, Do, Log.Aaa & Doc. 

Dlsk-20 UNIX Like Tooia (July fc Sept. 85 Tsylor 6 
Cllchrlat). Dragon. C, Crep.C, LS.C, FDUHP.C 



This la a reader aervlce 0ILT1 Ho Warranty is 
offered or laplled, they are •• receives 1 by 'M* 
Micro Joaraal* and are for reader convenience ONLY 
(some HAY Include flxea or patches). Also 6800 and 
680<* programs are nixed « aa each la fairly alaple 
(ooatly) to convert to the other. 

PRICE: 8" Disk $14.95 - 5" Disk $12.95 

64T Micro Journal 

5900 Cassandra Smith Rd. 

Klxson, Tn. 37343 

(615)842-4600 

• indicates 6800 

*• lndicatea BASIC SWTPC or TSC 
6809 no Indicator. 

MASTER CAM) - VISA Accepted 
Fo reign ~» add lot for Surface 
rSSl or 201 for Air! 1 



60 



September '85 



'68' Micro Journal 



r 
> 



TRS-80+ MOO I. III. COCO. T89/4a 
TMEX 1000. OSBORNE, otfwra 

GOLD PLUG - 80 

Eliminate disk reboots and data loss due to oxi- 
dized contacts at the card edge connectors. 
GOLD PLUG 80 solders to the board edge con- 
nector Use your existing cables (if gold plated) 



GOLD PLUG 80 Mod I (6) 

Keyboard/El (mod I) 
individual connectors 
COCO Disk Module (2) 
Ground tab extensions 
Disk Dnves (all R.S.) 
Gold Disk Cable 2 Dnve 
Four Dnve Cable 
GOLD PLUG 80 Mod III (6) 
Internal 2 Drive Cable 
Mod III Expansion pod 
USA shipping $1 45 
Foreign $7 



d& 



S44.95 

15.95 

7.95 

16.95 

INCL 

7.95 



- 10. 9 S 
39S 

1 ft AC 






29.95 
39 95 
54.95 
2995 
10 95 
Can/Mex S4. 



<dfe 



TEXAS 5% TAX 

Aelc your favorite dealer or order direct 

E.A.P. CO. 

PO BOX 14 
aeofe .n.t> KELLER. TEXAS 76248 
(8 1 7) 498-4242 MC/ VISA 

♦ tradwT>artt TeVXJy Corp 




Available 
Assembled 
and Tested 



Compact 
Flexible 
6809 
Computer 

Th»newST29O0«yi(am - * complala 64K ima" t>u§<i>asaoi hobbyislcompultr 
la only ona ol Ha many poaalbla conliguraliona Among ila laaluraa ara 

• Small anough lo hold in your nanrJE (Eurocaid %\in 39" x 6.3*1 m 

• T#o board "ayatanV for g«aalar variattlily ttia* sknga board computer* e 

• CPU Board - powtul SjQBf pfoca»»o«. 16* or 64* RAM. tK J2K EPROM, 2 £ 
RSZW wt»*i porta *«h aorrwa-a p»ogtammao»a baud raia*. lo bit J 
counlar/hmai Run <!>• CPU board all by ilaall, or 0*ug your own custom board or m 
our FOC board into ina e*pana*on conoaclor £ 

» FOC Board - OouM+*iOo&Qaut*+4q*ni\y floppy disk controller with ad|ust « 
manl Iraa d«gilal dala aaparator and write preeompensettofi, 2 6-o.r. parallel J 
porta. ? *«-b»l counlar/timera, prototyping »ree 4 

• Available as Da/a PC boards or fuNy iiNrntM art*, taata* boa ids Ail hava a 
lOkJC* mask bo4h t«)es plus HIMcaenad aomponent overlay * 

• OS- 9 for Only $49? Well, not quite But ifcata alt you pay *o# our £ 

OS* Coovemron Package which lata you use the low cost RadH) Stack CeCo „ 
version of OS-g on ovt ST 2000 ayaiem Save *1 31 oM the suggesled tist Of tea of I 
OS*' Ha pfairammlm la \nmolv4. Supports CoCo OS-9 and slandaid OS9 { 
da* lormais OS9CowferieonPacAaga $49 * 

• CPU bare board plus EPflOM MS FLEX Convatsion Package S29 S 
FOC bare board S36 CPU ♦ FOC + OS*Cofw*C* in* -£ 
CPU « FOC board eel assembled and tesled S329 E 

• Add S5 sh>pping>handiirig ft 10 overseas) These prices are in U S lunds Cana- S 
dian ofders call or wule tor pf ices Terms; money order c*r1i<*ed check. VISA 

^ *»Vnte lot tree btoehma and 

<^ <A \> ISI < cwn,,l# '* *"" " ,1 

J\ ^/\r\U^I/ iBOil 2»4*B5 (« prn PST> 

"«HNOLOOI« 

2261 6, 11m Ave. Vancouver. B.C., Canada V5N 1Z7 
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19535 NEOUSAN POftTTUND, Ofl 97230 (USA) 

PMOME: (503) 666-1097 - HUE* 91Q 360 5446 U.OYD I O 

K-BASIC" jsh&f 

IC-BAStC It o TSC XBASIC (XPC) compatible COWP1L£R 
for OS9 8l FLEX... price $199 

here at tost is a compiler for GAStC that will txxrpoe all your 
XBASIC proQromi KBASrC compiles TSCs XBASC and XPC pro- 
Ofams to machine code K-BASIC is ready now to save you 
money and time by teaching your computer to? 

* Think Foster • Conserve Memory • Be friendlier 

Coll (503) 666-1097 for our CATALOG. 
We hove many programs lor Mfiota toftMrom developers! 



DO" 

Micro 8ASIC for OS9.. 



$U9 



A structured mirco BASIC for general system control featuring: 
Porameter posting, 10 string voriobies. 26 numeric voriofctes. 
subroutines, nested loops, interactive I/O. sequential He*, and 
lime variables (for applications executing in the background re - 
quired to execute procedures such as disk or Me bocMjps.) In- 
cludes the S6APCH and RESCUE UTILITIES "■ (For OS9 ONLY.) 



SEARCH and RESCUE UTILITIES™ 

forOSV $35 

A super directory seorch uhbty Output may be prped to the in- 
cluded utrlWes to perform nle COPK5, DELETES, MOV^S^ LKDNG 
(posjrxTtton), and FU Tc7?tNG Some tHtenng utilrty programs are 
indudea: of Interest ts me FILE DATE CHECKING utiftties: YOUNGCR 
and ORAfT (Level 2) (For 099 Level 1 and 2) 



PATCH 7 * 

Modem Communications forOS9...$39 

PATCH is a modem cc*T>munlco1ions program for OS9 featuring: 
KEV MACRO! ASCII TEXT AND BlMAiTY FILE UPfDOWN LOADING. 
PRINTER COtY and HELP MENUS We use it several times each 
day wtto our TELEX service. PATCH is convenient and easy to use, 
Key macros may be pre stored and looded ot ony Nme 



CRASMB™ 

CROSS ASSEMBLER PACKAGE 

for OS9 Sl FLEX,., oil tor $399 

Motoroto CPU's... $150 

Intel CPtfs... $150. Others... $150 

CRASMB ts n** highly acclaimed cross assembler poctoge tor 
099 and FLEX sysiemL it tuns your 6809 computer into a de- 
velopment station tor these target CPUs: 

6800 6601 660J 6805 6809 6611 6502 
7000 1602 6048 6051 6060 8085 28 280 

(66000 16/32 bit cross assembrer„ s $249) 

CRASMB features: Macros, Condftionols. Long symbol names, 
Symbol cross reference tobies. Object code In 4 formats (OS9. 
FLEK S 1-S9, .NTEL HEX] 
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CORN Cf 



COMPUTER 



!mb as-eoc 



MODULES - BARE CARDS 
Steckable Module* 



KITS - ASSEMBLED a TESTED 
KIT AaT 



30 eajp POWER SOPPLT w/fa* 
e/Dla* protect relay 

DI9E CAB1KET w/re|e. A ceblee 
leae DRIVES 

alOTHBB BOARD. 8 88-S0c, 8 SS-30c 
fltfl button 



350.00 40O.Q0 
200.00 250.00 
335.00 335.00 



Item 



Bare 



EIT 



AaT 



IT3 



- IRTEBBUPT TIMER 
1, 10. 100 per eec. 19.95 

- XITTELLICKHT PORT BUfFER 
Single board cotftput .30.95 

DPI A - But! *!* parallel port. 

4 buffered I/O* 34.95 
IADR - Extended Addreaeioc 

BAUD K eo. PI A port 39.95 
MBS * MOTBEB BOARD flS-SOc 

e/BAOD geo. 84.95 

168E PROM DISC 

31. 3784 EPROtfa 39.95 

firewure development 

3. 8C block. 39.95 

IMPR - 3784 PROM bursar adapt. 

for 3718 BURNER 
CSERRT Eajboard w/CablQat 

96 key capaeltiva 
TAZAJ 13 H . 18 NBA MONITOR CREW 
AMBER 
4 MOOCH CAB I TOT - u&fialened 
POWER SUPPLY «/dlait protact 



PB4 



P166 
PD88 



39.96 39.95 

114.95 139.95 

89.95 89.95 

69.95 89.95 

149.95 199-95 

79.95 109.95 

84,95 114.95 

19.95 "— 

349.95 

149.95 

__ 159.95 

150.00 

350.00 



[♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦| 

Color Computer 



MOMOLIHE - 30 Mb a Mo&ocbrowe 

video driver 
CC30 PORT BOS e/ power euppl* 

5 88-30. 3 Cart 
POWER BOX 6 evltcbed outlete 

treoeleat euppreeeloo 
BS-333 3-ewltcbed ports 

for above 



15.00 30.00 
189.96 199.95 



39.95 39.95 
ADD +30.00 05.00 



Write for FREE Catalog 

ADO 53.00 StH PER ORDER 
WIS. ADO i\ SALES TAX 



11931 W. Bluemound Road 
MILWAUKEE. WIS. 53226 
(414)257 0300 



SOFTWARE DEVELOPERS! 

YOLTVE JUST BEEN GIVEN THE E3EST REASON VET 
TO GET OUR 68000/UNtX* DEVELOPMENT SY5TKM 



THE VAR/96K* SOURS 




VK EVXW-20 JIB,!** 

Inchidr* TtrnnliMt 2a Mb luiid dl»k. 
513KKAM, apurlftond HVXU/1US* 



VK EIXW20T30 112.410 

Includr* all of tt£o*r, tfu* W Mb 
ml* mtvamcr 



REStLLCRSI 



IBID PC/0S9 Cam«etiiiht| 



lax*. «a.eaJ tta aM MM ft t*M*tttcy la tfeef ftta 
sasieaa far at ittie at !M»S earn lorituart lb»t tt ae 
after e«*JM»l»e t« ear aeert Creapead At* Mkre Aaaraal 
m a n t^eees lea I. JR. Mete aeletN la tea aeai ••••*, 
eel IT tee anal 18H PC ceeeMNIkai eeui.CatL NMRI 



VAM.AAK •»■* rrjiMmfl .»!*«»*>* <4 Aou!«c »««»< 
amnio l» m rv^saint l/w4n»»» k it Kr^m c«*H 
UMVC »* rtjmftw* (iwmtjii or l*« UOorwnne* 



TO OeTACfl YOUR VAM MK 
AT (WW LOW WA C0MTM 



SMOKE SK3HAL 



a 



I j.». SMf/M INV* 



VfTOAK*: viuauR. ca »i any 
•JINM0UM0 Tf4r*91Q4fH49tt 




POWERFUL COLOR GRAPHICS 
Uses the new TMS99IAA Video Dis 
plav procosor Hiuh resolution 256 > 
192 put* I display with i& colors T6K 
Bytes ol onboard RAM does nni reduce 
user memory 32 graphic images can 
ba hndMtfuaKy mowed with simple x-v 
commands for smooth ammaiiion 
Exlemal Video mpyi allows aupiiiling 
NTSC compos^fl *hd**o ouipul 
SOUND EFFECTS AND MUSIC 
a TJnree AY3-89t0 Programmable 
Sound Generators 

• Ninesimullaneous voices 

• Three independent nO*se ourcas 

• OnDoard slerao amplifier duves Iw 
a ohm speakers 

ADDITIONAL I7 Q CAPA&I LI T I £ S 

a £ighl analog mpuls with 8 bit reao 

lutton 
a Suppoiis lou r loysttcks w»th pushbut- 
ton aw<tc es 

• EigM bil rallel I/O pori 

• Enlire umt maps into 296 byies of 
memory 



ri 



TERMIMUS DESIGN INC, in con|unc 
don win Mrcroware SyalnmsCtMpora- 
hon m proud Id anrouncir FBASIC an 
enhance menf of Micioware'ti 6flOO/ 
BASIC Their fast compiled BASIC has 
ttee n Addpt er3 for 6809 user^ with added 
wrdeo and sound features lor ARCADE 
50 users FQASrC is a true compiler 
that produces optimued machine Hfv 
rjuage modules which are ROMableand 
require no Run Time package FBASIC 
requires, less memory overhead and 
runs hundreds of tunes faster lhan 
BASIC i n lei preterm H supports atan 
dart) BASIC instruction incJudmg 
String lunctKHis Oisk i/O .indfasl mleger 
arithmetic with multiple- precision capa- 
bility Graphics ve rbi a nd t unc Non s I u I ry 
Support ihe Arcade 50 



A CADE 50 assembled and lesled $32500 

Vrdeo and Audio connector sei 1500 

4 Joystick conneclot sei 1 5 00 

2 Radio Shack Joy lickv 2* 00 

old Mole* connector* 12 0Q 

ABASlCforeSOO 11000 

FBASIC lor 68 9 11000 

FBASIC I with ARCADES I ?SOO 

ARCADES RGB 37500 

I AB VIDEO {Motorola EXORbuSj 375,00 

NEW MVOfl 6809 Pfoceasor B ard 725 00 

25 K Dynamic Memory Board 795 00 

256K Dynamic Memory Boardlw/64KI I84MM 

64K Dynamic Memory Board 29500 



tlHMs i \mi 



TERMINUS DESIGN INC 
16 SCARBROUCH ROAD 
ELLENWOOD, GA 30049 

,,„, (^04) 474-4866 
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PT-69 SINGLE BOARD COMPUTER SYSTEMS 
NOW WITH WINCHESTER OR FLOPPY DISK DRIVES 

The proven PT-69 Single Board Computer line is expanding! Systems now can be Winchester or lloppy-based Available also in a smaller 
cabinet without drives lor dedicated systems with no mass storage requirements. 

' 1 MHZ 6809E Processor ' 2 RS 232 Serial Ports (6850) * 2 B-bit Parallel Ports 46821) 

* Time-of-Day Clock ' 56K RAM 2K/4K EPROM ' 2797 Floppy Oisk Controller 




Custom Oestgn Inquiries Welcome 




>piea*i vvincmktCr system 

InduOdo $ MEG W#Kf»rtr Or*** 1 «Vlrack DS t JO Or**, 
PWdHO* Prvilar IfllnrtA** • cAO-QO Of OS* Of STAP-OOS 

► PT6852 FLOPfr SYSTEM 
induOdo *>T63 Bo*d 2 DS/OD 40-TRK Sif drrvot CAfrntf 
aw.lctung povrer a*jpp«y OS'S 0» ST Art-DOS 



PT-dd* A£SEAtf*£D & TESTEO BOARD 

OS/9 

STAR -DOS 



•289 
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CALL OR WRITE FOR AODITIONAL 
CONFIGURATIONS 



VISA 1v1ASTERCAHD/CHECK/COD 



PERIPHERAL TECHNOLOGY 

1480 Terrell Mill Rd Suite 870 
Marietta. Georgia 30067 

Telex #880684 404/973-0042 



XDMS 

Data Management System 




Syetem Architecture 



WE8TCHCBT 



ER Applied M%Jmir»mmm Gy«»%a 
Pett orric» «o* it* 

Ltriarcllff Manor, *.T. 10»10 



XDMS D^j-j, Main*».cioimatn fc B^mt-m 

Th» XDMS Pari HinigfAtnl SyMtm it ivlllibl* in Ihraa l#»*i*. lath 
1***1 mcluf*« tn# IfDMS nudiui, VHOER w1illt r and S r tt**R Documentation 
far laval Ill- XDMS it a^f of ihr nott pdmH,j| «yit*mt idllibli far 
*iO* computfr* «nf m* r b« otad for 4 wid* v*'L*r» 9' Application*. *DKS 

tnnDuntfMtnlt *nd viH<lhoP o' uaar upgr*d*« «nd **mtt«4flti 'tquttti. 



XDM8 LfYtl I 
xftrtl Laval t contiatt or 



cpntlttt or DEFINE, UPDATE and REPORT factllllat* 
Thll laval it intarvddd At an "fritry Nvil' tytlanu and Par mi It antry rvd 
reporting of tfala on * 'tibulif' 6iiif, Tna FBPDftT facility tupportt 
record ind fiald aalactlom Maid merge* tortlng* Un* calculations 
column totals And rpport titling, Control it via • frighta-like lanfuafn 
-MCh it uPvird compatible • *!* lava] H. XDMS Level I , ... ♦ «I2*>*3 

XDMS L«vl XX 

Lev*l [[ adda to Level I 1*a po-erful OEHEPATE facility. Thit facility 
tan 0* thowflht of it a general file proeattor which car* proeuca raporto, 
for** and lorai latter* •• «tll •• file output which a»ay 0* r a" input to 
tha 'aciht). GENERATE may be uaad in ceaiptei Procaating Application*. 
and it controlled by a fngliarwlika cOrruhend langu*** *htch encomPa**** 
thit uted by Law] I. XDMS Lava] tt . .a]t«~.*3 

X^JM'J Ltvti XXI 

Laval II] mcludat all or laval II plut a tat o! uaeful DM8 Utllitiaa. 
Thaia ulilitiot ere daaignad lo aid m tha davalop«i*nt and' malnteneace 
ol uaor application* and parait modification or XDMS aytteai patajnatara, 
input and output of XDMS fllaa* display and) a>odif icatio* of file r«f<ut, 
graphic dttPlay or nuaeOcal 4ata and olhar r^nctiant. Laval III it 

intandad r or advancad 1DH« utar*. IDMS Laval 111 -.* P2a9.V9 

XOHI tyttam D cufhantation oniy ftiO. cradit toward Purchatai. < .• 24,93 

XACC Aumuntlna Bvittm 

Tht XACC Oanaral Accounting tyatam it datignad ror a*atl Ouainatt 
anvironmaort of UP 10 $0*000 tccountt and Invantory Itaatt* Tha tyttaa 
intagratat Accounting functiont and invaniorj plut tht gonaral ladgar, 
account* racai»aOla and payaola functiont normally aold taparatply in 
othar tyttaait» Faalurat utar Oaflnad accovntt* Producta lor tarvicaai, 
tr an« ACtiont. invoicing* •'«♦ Eatily configurad lo mott anvlronatanta* 
XACC Oanaral Accounting Ifatam <P«Ru1rtt XDMS* prof, L*. Ill), « tlPP.PS 
XACC trttam cuovantatton only <«I0. cradit towaril purcha»dr. . .• 24.VS 



NB9TCKEBTSH Appllod Builnaai AyotOmo 
Pott Offlca loi 117* BrUrcliff Manor. |J, 10910 

AA1 poftworo U ortttoo lo oocro/dOdaojoUr aod rwM upWot M09 rVfX 0/| v 
Ttmi Oaox*.. Me or i Order, vlaa or rUotarcKarga. Stklpoajot Ilrat ctaaa. 
Add Pial |2,90 (17, SO for old. ferfoc* or 113.00 Parol** Air), iff lao odd 
■alaa too, Ipoclfy J" or •". 
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GfTIX 68020 DEVELOPMENT SYSTEM 

A Multi-user, Multi-tasking software development system tor use with all 68000 family processors. 







HARDWARE FEATURES: 

• The GMX-020CPU board has: the MC68020 32 -bit processor, a 4K 
Byte no wait- state instruction cache, high-speed MMIL and a full- 
featured hardware time of day clock /calendar with batteiy back- 
up. It also provides for an optional 68881 floating point co- 
processor. 

• 1 Megabyte of high speed static RAM. 

• Intelligent Serial and Parallel I/O Processor boards significantly 
reduce system overhead by handling routine I/O functions. This 
frees up the host CPU for running user programs. The result is a 
speed up of system performance and allows all terminals to run at 
up to 19.2K baud. 

• The system hardware will support up to 39 terminals. 

• Powered by a constant voltage ferro- resonant power supply that in- 
sures proper system operation under adverse AC power input condi- 
tions. 

• DMA hard disk interface and DMA double density floppy disk con- 
troller are used for data transfers at full bus speed. The DMA hard 
disk drive controller provides automatic 22 -bit burst data error 
detection and 11 -bit burst error correction. 

• A selection of hard disk drives with capacities from 19 to 85 
Megabytes, removeable pack hard disk drives, streaming tape 
drives, and floppy disk drives is available. 

UNIX is j trcfemifr al A T 6 T 

ADA » i if Ktamjrn of tn* u S Gowmmtni 

UtflEX Is j VrteWt tf TKttnfcal Systems Consultant*, Wc 

6MX art GiMix in tratomafe of G1M1X. inc 

GIM1X r Inc., a Chicago based microcomputer company established in 1975, has produced state of the art microcomputer systems based on Motorola 6800 and 
6809 microprocessors. GIMIX systems are in use in Industry,, Hospitals, Universities, Research Organiations, and by Software Developers. GIMIX was awarded 
the prestigious Presidents "E" Certificate for Exports in 1984. 



SOFTWARE FEATURES: 

The UniFLEX VM Operating System is a demand-paged, virtual 
memory operating system written in 68020 Assembler code for com- 
pactness and efficiency. Any UniFLEX system will run faster than a 
comparable system written in a higher level language. This Is impor- 
tant in such areas as context switching, disk I/O, and system call 
handling. Other features include: 

• compact, efficient Kernel and modules allows handling more users 
more effectively than UNIX systems, using much less disk space. 

• UNIX system V compatibility at the C source code level. 

• C Compiler optimized in 68020 code (optional), 

• Record locking for shared files. 

• Users can share programs in memory. 

• Modeled after UNIX systems, with similar commands. 

• System accounting facilities. 

• Sequential and random file access. 

• Maximum record size limited only by the disk size. 

• Multiple Level Directories. 

• Up to 4 Megabytes of Virtual Memory per user. 

• Optional Languages available are: C, BASIC, COBOL, FORTRAN. 
LISP, PROLOG, SCULPTOR, and ASSEMBLER. In development are 
ADA, PASCAL, and FORTH. 

Included with the UniFLEX Operating System are a Utilities package, 
editor, relocating assembler, linking loader, and printer spooler. Op- 
tions Inlcude a fast floating point package, library generator, and a 
sort- merge package. 

The GMX version of the MOTOROLA 020 BUG is Included with the 
system. 



Gimix 



inC. 1337 WEST 37th PLACE • CHICAGO, ILLINOIS 60609 • (312)927-5510 • TWX 91 0-22 1-4055 
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Data-Comp 

S,E. Media 




For Old* ring Call 



(615)842-4600 

FROM - DATA-COMP, C.P.I. 



A Family of 100% 68XX Support Facilities 
The Folks who FIRST Put FLEX" 1 on 

The CoCo 

Now Offering. •FLEX 1 " <2 Versions) 

AND *STARDOS PLUS + " 




TSC Editor 
NOW $35.00 



STAR-DOS PLUS + 

• Functions Same as FLEX 

• Reads - writes FLEX Disks 

• Run FLEX Programs 

• Just type: Run "STAR-DOS" 

• Over 300 utilities & programs 
to choose from. 



PLUS 
ALL VERSIONS OF FLEX & STAR DOS* INCLUDE 
Read- Write* Dir RS Disk + External Terminal Program 




Run RS Basic from Both 
More Free Utilities 
Many Many More!!! 



+ Test Disk Program 

+ Disk Examine & Repair Program 

+ Memoiy Examine Program 



TSC Assembler 

ReglSOlOO 

NOW $35.00 



G 



LdCo Disk Drive Suslem; 



NEW LONER PRICES ON ME IS, AND PttfTTfS 

THESE PACKAGES INCLUDE DRIVE, 'CONTROLLER, 
POWER SUPPLY * CABINET, CABLE t AND MANUAL. 



* SPECIF! WHAT CONTROLLfR YOU NAMT 



OR 



PM #1 - I SINGLE 5 1 DEC, DOUBLE DENSITY SYS, 
PM #1 - t SINGLE SIDED, DOUBLE DENSITY SYS. 
MR #J - 1 DOUBLE SIDED, DOUBLE DENSITY SYS. 
PM #4 - 2 DOUBLE SIDED, DOUBLE DENSITY SYS. 
PAX ft - 2 DOUBLE SIDED, DOUBLE DENSITY SYS. 
TH INLINE DRIVES. HALF SIZE 



110 

1349.95 
1639, 9 S 
1439.95 
I 699. 95 



Controllers 



JIM DISK CONTROLLER M/ JDOS OR RADIO SHACK 

DISK BASIC, SPECIFY WHAT DISK BASIC. 1134.95 

RADIO SHACK DISK CONTROLLER 1,1 1134,95 



64 K UPGRADE V/MOO. INSTRUCTIONS, 
C,D,E,F, AND COCO 2 

HJL KEYBOARDS 

HKR0 ?ECH LOWER CASE ROM ADAPTER 

RADIO SHACK BASIC 1.2 

RADIO SHACK DISK BASIC 1.1 

DISK DRIVE CABINET A POWER SUPPLY 

SINGLE SIDED, DOUBLE DENSITY | - DISK DRIVE 

DOUBLE SIDED, DOUBLE DENSITY 5" DISK DRIVE 



Printers 



EPSON RI-BO 
EPSON Rl-BOfl 
EPSON MI- 100 
EPSON FI-100 
EPSON FI-BO 
EPSON «X~?0 



Disk Drive Cables 



CABLE FOR ONE DRIVE 
CABLE rOR TWO DRIVES 



t «,t5 



t 74,95 
S 74.9$ 
% 24. 95 
S 24. 95 

S 49,95 
1199. 95 
* 2 49. 9 5 



1269.00 
1169.00 
1499.00 

sm.oo 

1549.00 
1200.00 



1 19.95 
S 24,95 



DATA-COMP 

5900 Cassandra Smith Rd 
Hixson. TN 37343 




CD 




SHIPPIN6 

USA ADD 2% 

FOREIGN ADD SIB 

MIN. *2.SO 


(615)842-4600 

For Ordering 
TfcUEX 55* 414 PVT BlTM 
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Z9QL£ ki ^DNIMdS NOiSONTX 

is xna -o *d 

Advanced typing and uual-purpose asset 



text editing 
capability. 




ROYAL Beta 9000D 
Electronic Memory 
Typewriter with Display 

The perfect combination . . advanced electronic typing 
and text editing capability. The ROYAL Beta 9000D 
features an easily accessed 2500 character phrase 
memory that lets you recall names, addresses and com- 
monly used phrases at the touch of a key* a user-fhendly 
20-character display for ease of operation, 500 charac- 
ter lift-off correction memory, tnple pitch, and much, 
much more, The Bela 9000D is also computer mter- 
laceable via ROYAL'S optional IF600 Interface Box with 
4K memory. Use il as a sophisticated memory type- 
writer or as a letter quality computer pnnter. Either way, 
Ihe ROYAL Beta 9000O delivers professional perfor- 
mance. See the Beta 9000D at: 




Littir Quality 9 CPS 
Dual Pitch Daiig Wheel 



for home and office. 




ROYAL Beta 8200C 
Professional Portable 
Electronic Typewriter — 
Built-in Centronics Interface 



The ROYAL Beta 8200C offers advanced electronic 
typing performance with 2-line hft-ofl Correction 
Memory, Tnpte Pitch, 1 1 1 -Character Keyboard with In- 
tematfona! Language. Math, Legal and Business Sym- 
bols. Automatic Indenl Center. Return, Decimal Tab 
and much, much more The ROYAL Beta 8200C also 
features a buifl-in Centronics Parallel computer inter* 
face with2K memory Use it as a typewriter or as a letter 
quality computer prmler Either way, you get advanced 
performance and ROYAL value See the Bela 8200C in 
action at : 



wMtimtuututmmntiuiumuim 




Biti 9000 I 599 95 

Biti 6200 C $ 199 95 

Littmnutcr 1 239.95 

Officamtitir 2000 $ 199.95 



Latter Qaklitg 20 CPS 
Dull Pitch Diiig Whttl 



DATA-COMP 

5900 Cassandra Smith Rd 
Hixson. TN 37343 



L»] 



SHIPPING 
USA ADD ?JC 

I 04HI6N ADD SX 



(615)842-4600 



TELEX 55t 414 fVT ftTH 



